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CHAPTER  1  -  INTRODUCTION 

1.1  Purpose 

The  purpose  of  this  report  is  to  demonstrate  the  concepts 
of  a  graphical  oriented  user  inter-face.   These  concepts 
are  demonstrated  with  a  model  that  implements  certain 
office  tasks.   This  interface  is  designed  along  the  lines 
of  the  direct  manipulation  concepts  as  discussed  in 
CShn82a],  C3hn82b],  CSmi823,  and  C3ib36].   This  interface 
also  adheres  closely  to  the  WYSIWYG  (What  You  See  Is  What 
You  Set)  concepts  in  terms  of  semantic  expressions  of  the 
tasks  to  be  rendered.   Various  forms  of  iconic  interfacing 
as  discussed  by  CLod833  are  also  demonstrated.   Finally, 
the  principles  addressed  by  CSmi821  are  utilized  in  the 
design  phase  of  the  interface  for  this  model.   These 
principles  are    listed  in  Table  1.1. 

1.2  Overview   of  Company  Model 

This  hypothetical  business  is  a  chemical  company  that  has 
two  major  subdivisions:  manufacturing  and  research. 
Figure  1.1  shows  the  organizational  chart  for  this 
company.   Each  subdivision  is  further  broken  down  into 
departments  as  shown.   Each  department  has  a  workstation 
and  a  database  associated  with  it.   In  addition,  each 
department  is  connected  to  the  others  in  a  hierarchical 


Table  1.1 

Familiar  user 'a  conceptual  model 

Seeing  and  pointing  versus  remembering  and  typing 

What  you  see  is  what  you  get 

Consistency 

Simplicity 

Modeless  interaction 

User  tai lorabili ty 


The  contents  o-f  this  table  are  copied  -from  an  article  by 
CSmi823. 


lAjax  Chemical 


! Product  ion : 
t    Dept.   i 


Waste  water 
Dept. 


Figure  1.1    Organization  Chart 


connected  network  which  matches  the  organizational 
diagrams. 

The  office  activity  being  simulated  is  the  sending  and 
receiving  of  one  line  electronic  messages  between  the 
different  departments.   Each  workstation  is  equipped  with 
a  personal  computer,  keyboard,  graphics  quality  screen, 
and  a  mouse. 

A  means  of  traversing  through  the  hierarchical  structure 
of  the  company  is  provided  through  the  use  of  the  mouse. 
The  user  can  perform  two  distinct  operations  at  any  of  the 
workstations.   The  first  operation  is  a  means  of  graphical 
accessing  a  database  for  the  purpose  of  file  manipulation 
and  second  is  a  means  of  routing  these  files  to  a  variety 
of  people  within  the  business  organization. 

1.3    Graphical  Objects 

The  user  is  confronted  with  three  basic  graphical  objects 
with  which  to  work  with  at  any  given  workstation.   These 
objects  are  data  entities,  functional  entities,  and  person 
entities.   The  following  is  a  discussion  of  these  objects: 


Data  entities       The  data  entity  is  an  object  that  take 
the  form  of  either  a  text  document  or  a 
fill  in  the  blank  form.   The  data 
entity  is  the  vehicle  by  which  all 
inter-department  communication  is 
achieved.   Thus,  it  is  the  data  entity 
that  will  be  routed  to  the  appropriate 
individuals  within  the  organization. 

Functional  entity   The  purpose  of  the  functional  entity  is 
to  act  as  a  means  of  support  for  the 
data  entities.   Functional  entities  are 
broken  down  into  five  classes: 

1)  Filing  cabinets 

2)  Nodes 

3)  Printers 

4)  File  servers 

5)  Ports 

Filing  cabinets  act  as  a  depository  for 
data  entities.   The  user  opens  the 
filing  cabinets  to  store  or  retrieve  a 
data  entity.   Nodes  are  used  to 
represent  individual  departments. 
Printers  are  used  to  generate  hardcopy 


of  a  data  entity  image.   File  servers 
act  as  hubs  for  nodes.   Their  use 
achieves  a  logical  clustering  of 
departments  around  the  major 
subdivisions  mentioned  ear  Iter.   This 
arrangement  has  been   observed  by  the 
author  to  be  simi lar  to  actual 
companies  using  networked  personal 
computers  to  address  their  information 
needs.   The  final  class  of  functional 
entities  are  ports.   Ports  act  as  a 
doorway  between  the  two  subdivisions 
and  their  associated  departments. 

Person  entity       Person  entities  represent  people  who 
usual ly  perform  some  sort  of  "action" 
on  a  data  entity.   Person  entities  are 
grouped  along  departmental  patterns. 
This  means  that  selection  of  a 
recipient  for  mai 1  is  based  upon  what 
department  they  are  assigned  to. 


1.4    Organization  of  Report 

This  report  is  organized  into  five  chapters;  Chapter  1 


The  Introduction,  Chapter  2  -  The  Literature  Review, 
Chapter  3  -The  Direct  Manipulation  Interface,  Chapter  4  - 
The  Visual  Implementation,  and  Chapter  5  -  The 
Implementation.   Chapter  1  has  already  been  discussed. 
Chapter  2  is  a  survey  of  articles  dealing  primarily  with 
the  human  machine  interface  and  the  emergence  of  the 
concepts  used  in  a  direct  manipulation  interface.   Chapter 
3  provides  a  discussion  of  the  model  used  to  demonstrate 
the  direct  manipulation  interface.    In  particular,  this 
chapter  addresses  the  details  associated  with  the  two 
major  subsystems:  File  Management  and  Routing.   Chapter  4 
offers  a  discussion  of  the  actual  visual  interfaces 
offered  to  the  user.   This  includes  instructions  on  the 
use  of  the  direct  manipulation  tools  associated  with  each 
instance  of  a  visual  screen.   Chapter  5  is  concerned  with 
the  hardware  considerations  and  the  software  design  and 
data  structures  associated  with  the  actual  implementation. 

1.5    Significance  of  the  Demonstration 

The  significance  of  the  demonstration  is  best  understood 

with  the  following  observations. 

1)   The  dissemination  of  information  with  many 

companies,  regardless  of  size,  is  still  being 


done  manually.   A  common  procedure  is  to  select 
or  create  an  item  of  correspondence,  attach  a 
routing  list  of  names,  and  send  this  item  via 
traditional  (manually)  mail.   This  scenario  is 
usually  slow  and  at  times  unreliable. 

2)  The  very  nature  of  the  manual  mail  problem 
suggests  that  it  might  be  resolved  through  the 
use  of  a  natural,  visual  interface  model  of  the 
message  and  routing  systems  involved.   Therefore, 
an  effort  is  made  through  the  demonstration  to 
show  an  application  of  an  interface  form  to  a 
real  commercial  need. 

3)  The  operator  of  this  interface,  usually  the 
person  who  is  currently  doing  the  job  manually, 
will  be  able  not  only  be  able  to  take  advantage 
of  their  visual  processing  skill  via  these 
computer  tools  but  also  the  learning  curve 
associated  with  these  tools  is  minimal  due  to  the 
semantic  nature  of  the  model.   This  observation 
is  documented  in  CLedSO],  CCarBO],  and  [Shn82ai. 
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CHAPTER  2  -  LITERATURE  REVIEW 

2.1     Introduction 

This  chapter  reviews  literature  related  to  the  interactive 
inter-faces  between  the  user  and  the  computer.   Hodeis  o-f 
the  user  inter-face  -fall  into  two  broad  categories: 
linguistic  models  and  spatial  models  C5ib863.   The 
linguistic  models  view  the  inter-face  as  a  dialog  oetween 
the  user  and  the  computer.   The  spatial  model  aeais  more 

with  the  interactive  grapnic  or  direct  manipulation  model. 

It  is  the  intent  of  this  review  to  -focus  on  the  spatial 

models  though  some  attention  is  paid  to  the  linguistic 

models  -for  the  purpose  of  comparison. 

2.2    General 

C5teS7al  notes  that  there  are    three  major  concerns  that 

con-front  the  human  -factor  aspect  o-f  manufacturing  a 

product  -for  an  end  user  population: 

1)    The  -first  concern  is  that  more  people  are    using 

computer  products  to  aid  them  in  their  job.   This 
increase  in  the  computer  user  population  will  oe 
comprised  mainly  o-f  novices  and  non-technical/non- 
computer  types  o-f  individuals.   In  the  "old  days", 
programmers  designed  text  editors,  operating  system 


11 


job  control  languages,  programming  languages,  and 
application  packages  -for  themselves  and  their  peers 
CShn82].   Now,  with  personal  computers,  office 
automation  ,  automated  spread  sheets  and  other  such 
products,  a  new  type  of  user  is  barn.   This  user  is 
more  concerned  with  what  can  be  done  on  a  machine  as 
opposed  to  how  the  machine  works.   It  is  helpful  to 
look  into  what  was  done  prior  to  direct  manipulation 
in  terms  o-f  the  human  -factors  aspect.   It  has  been 
noted  by  CLed803  that  we  have  -forgotten  that  the 
original  objective  of  computer  technology  was  not  to 
develop  more  powerful  systems  but  to  increase  the 
overall  effectiveness  o-f  the  human  problem  solver. 
It  has  to  be  recognized  that  in  the  years  to  comes 
these  human  problem  solvers  may  not  and  should  not 
have  to  be  "computer  experts"  in  order  to  solve  their 
problems  in  their  domains. 

2)    The  second  major  concern  is  about  software  interfaces 
that  are  interactive.   Originally,  software  was 
written  to  implement  batch  orientated  jobs  such  as 
payrolls  and  account  functions  and  was  shown  to  be  a 
cost/benefit  improvement.   Now,  such  systems  as  on- 
line reservations  and  inventories  require  the 
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interface  to  be  understandable  and  available  at  all 
times. 


3)    Finally,  there  is  a  need  to  develop  interfaces  that 
per-farm  in  highly  critical  -functions  such  as 
monitoring  nuclear  reactor  site  and  intensive  care 
units  in  hospitals.   Strategies  -far  inter-faces  must 
be  developed  that  immediately  impart  to  the  user  the 
state  o-f  a-f-fairs.   In  addition,  these  inter-faces  must 
keep  the  application  error  rate  at  a  extremely  low 
rate  -for  obvious  reasons. 

2.3   Components  o-f  the  Inter-face  Design 

Studies  by  CShn823  have  indicated  that  the  inter-face 

design  e-f-fort  can  be  classed  into  -five  groups  or  areas  o-f 


concern: 


1)  General  linguistic  model  vs  spatial  model 

2)  Response  time  and  display  rate 

3)  Wording  o-f  system  messages 

4)  Online  tutorials  and  messages 

5)  Hardware  devices  (as  applied  to  spatial 
inter-faces) 


2.3.1  Linguistic  vs  Spatial  Model 

It  is  argued  by  CShn823  that  spatial  models  eliminate  the 
need  -for  the  user  to  memorize  the  syntax  -for  various 
options  o-f  a  command.   This  approach  is  o-f  particular 
interest  -far    nan— technical  users  who  may  not  have  all  the 
various  features  o-f  a  command  committed  to  memory. 
CZlo821  has  noted  that  there  are    two  major  problems  to  a 
menu  type  o-f  inter-face.   The  -first  problem  deals  with  the 
■fact  that  the  more  complicated  a  system  the  more  complex 
the  "march"  through  the  menus  becomes.   In  addition,  he 
says  that  menus  lack  -flexibility  in  that  the  user  is 
constrained  to  those  selections  available  on  the  menu.   An 
additional  option 

would  cause  design  changes  and  its  associated  overhead. 
This  lack  o-f  -flexibility  applies  not  only  to  menu  options 
but  also  to  the  actual  menu  formats  themselves  (i.e.  — 
vertical  and  horizontal  selection  arrangements). 

2.3.2  Time  and  Rate 

CShnB2]  has  presented  a  set  o-f  guidelines  that  address  the 
response  time/display  rate  issues.   He  -feels  that  typing 
and  cursor  motion  should  be  generated  in  .1  second  , 
-frequent  commands  should  execute  in  less  than  a  second, 
response  time  -for  similar  commands  should  not  deviate  more 
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than  205C  -from  the  mean,  and  quicker  response  is  not  always 
good  as  the  incidence  of  errors  increases-   It  has  been 
observed  that  novice  users  actually  prefer  a  slower 
response  time.   Guidelines  -for  display  rates  are    the 
elimination  o-f  erratic  display  rates,  display  rates  -for 
text  that  must  be  entirely  read  does  not  need  to  exceed 
the  actual  reading  rate  and  -faster  rates  are  better  -for 
material  in  which  only  a  small  portion  is  o-f  interest. 

2.3.3  Messages 

Wording  o-f  system  messages  concerns  the  implementation  of 
messages  generated  as  the  result  o-f  an  inappropriate  user 
action.   These  quite  frequently  occur  when  a  user  wanders 
into  areas  o-f  unf ami  1 iar i ty  or  during  the  steepest  portion 
o-f  the  learning  curve.   Guidelines  -for  addressing  system 
messages  include  using  a  positive  tone  and  attitude  when 
generating  system  messages,  using  terminology  that  is 
within  the  grasp  of  the  user,  allow  the  user  to  be  in 
control  of  the  situation,  and  use  of  a  neat  and  consistent 
format.   It  is  suggested  that  an  acceptance  test  oe 
administered  to  the  appropriate  user  groups  for 
val idation. 

2.3.4  Tutorials 

Tutorials,  explanations  and  messages  have  arisen  because 
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o-f  the  variety  o-f  user's  today  and  offer  an  excellent 
source  o-f  in-formation  -for  the  infrequent  or  novice  user. 

The  use  o-f  online  tutorials  eliminates  potential 
disruption  caused  by  having  to  physically  look  up 
something  in  a  manual.   A  continuation  o-f  this  is  to 
create  a  "window"  on  the  screen  that  allows  the  user  not 
only  to  perform  the  task  but  also  to  see  the  instructions 
at  the  same  time.   It  is  suggested  that  separate  error 
messages  should  be  generated  for  each  user  group  from  the 
novice  to  the  expert  CShnB2]. 

2.3.5    Devices 

Finally,  the  abundance  o-f  hardware  options  has  allowed  for 

-four  logical  device  types  to  be  a  basis  -for  design 

CFol&Wal74  ]. 

These  devices  aret 

1)  F'ick  —  a  mechanism  for  picking  from  a  set  of 
displayed  entities. 

2)  Valuator  —  a  device  for  setting  numeric  values. 
3>   Locater  -  a  way  o-f  specifying  in  two  and  three 

dimensional  space. 
4)   Button  -  a  selection  device  for  initiating  or 
terminating  action. 
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In  work  by  CCar7B],  -four  pointing  devices  were  tested  and 
compared  :  a  mouse,  a  joystick,  step  keys,  and  text  keys. 
It  was  discovered  that  the  mouse  did  the  best  job  in  all 
areas  of  consideration  except  the  time  it  takes  to 
actually  place  your  hand  on  a  pointing  device.   These 
areas  include  the  effect  of  distance  and  target  size, 
e-f-fect  of  approach  angle,  and  overall  errors  in  use. 

2.4    Linguistic  Models 

Linguistic  models  are  often  characterized  by  the  use  of 
keyboards  to  convey  textual,  line  orientated  commands  to 
the  computer.   The  user  types  in  a  command,  usually 
followed  by  a  return,  and  waits  for  the  computer  to 
respond.   One  example  of  work  on  the  improvement  of 
linguistic  models  is  by  CLed80].   He  has  indicated  that 
the  user  performance  was  dramatically  increased  in  text 
editing  by  the  use  of  an  English  language  editor  as 
apposed  to  a  notational  editor.   The  hypothesis  for  this 
experiment  was  the  fallowing  :   An  interactive  system 
should  be  based  on  familiar,  descriptive,  everyday  words 
and  legitimate  English  phrases.   The  use  of  the  English 
language  as  a  standard  for  worldwide  communications  is 
well  documented  CMcR86].   The  experiment  involved  two 
functional  equivalent  editors,  one  with  an  English-like 


inter-face  and  one  with  a  natational  inter-face.   A  group  o-f 
paid  volunteers  were  divided  into  three  groups  according 
to  their  abilities  and  asked  to  perform  a  variety  o-f 
editing  tasks.   The  results  o-f  the  experiment  showed  that 
the  mean  percentage  o-f  editing  completed  and  the  mean 
e-f-ficiency  increased  with  the  use  of  the  English— like 
editor  and  opposed  to  the  notational  editor.   Also,  the 
mean  percentage  o-f  erroneous  commands  as  less  -form  the 
English  editor.   During  the  course  o-f  this  experiment  an 
interesting  observation  was  made.   It  seemed  that  the 
users  made  no  distinction  between  the  syntax  and  the 
semantics  o-f  the  editors.   The  subjects  were  unable  to 
conceive  o-f  editing  power  as  something  di-f-ferent  from  the 
actual  command.   The  commands  so  personified  the  editors 
to  a  positive  or  negative  degree  that  the  subjects  were 
surprised  to  learn  that  both  editors  were  functionally 
equivalent.   This  observation  shows  the  importance  of 
surface  syntax  or  the  "looks"  of  a  command  in  designing  an 
interface.   This  study  shows  a  path  of  improvement  for  the 
linguistic  models  by  making  the  interface  more  English- 
like and  crafting  the  commands  to  convey  it's 
functional i ty. 
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2.S    Spatial  Models 

2.5.1    Feature/De-f  ini  t  ions 

As  noted  earlier,  the  spatial  models  include  the 

interactive  graphics  and  direct  manipulation  models. 

CRae853  has  noted  that  the  human  mind  is  strongly  visually 

orientated  and  that  information  is  more  quickly  acquired 

by  discovering  the  graphical  relationships  between  complex 

pictures  than  by  reading  text.   He  attributes  this  concept 

to  the  -following  observations: 

1)  Random  vs  sequential  access  -  reading  text  is  a 
sequential  action  whereas  random  access  can  oe 
obtained  to  any  part  of  a  picture. 

2)  Degree  o-f  expression  -  text  is  a  one  dimensional 
stream  o-f  words.   These  word  must  then  be 
interpreted  to  gradually  -form  a  picture. 

3)  Transfer  rate  —  one  picture  says  a  thousand 
words. 

4)  Concrete  vs  abstract  -  using  real  world  objects 
to  demonstrate  abstract  ideas  help  make  these 
ideas  easier  to  think  about. 

5)  Picture  without  names  -  pictures  do  not  need 
names  and  thus  a  second  level  o-f  reference  is  not 
required. 

6)  Real  world  pictures  -  pictures  reflect  what  is 
around  us  whereas  text  can  only  point  to  the  real 
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world. 
The  above  attributes  have  prompted  not  only  an  interest  in 
graphical  applications  but  also  what  can  be  done  to 
current  and  new  inter-faces. 

CShn82]  was  able  to  summarize  responses  to  systems  that 
received  positive  user  reaction.   The  central  ideas 
according  seemed  to  be  the  visibility  of  the  object  of 
interest,  rapid  reversible  actions  and  replacement  o-f 
complex  command  language  syntax  by  direct  manipulation  o-f 
the  objects  o-f  interest  -  hence  the  name  direct 
manipulation.   He  notes  that  the  direct  manipulation  model 
can  be  thought  o-f  in  three  terms: 

1)  There  is  a  continuous  representation  o-f  the 
object  o-f  interest. 

2)  Physical  actions  or  labelled  button  presses 
instead  o-f  complete  syntax. 

3)  Rapid  incremental,  reversible  operations  whose 
impact  on  the  objects  o-f  interest  is  immediately 
visible. 

The  use  o-f  the  above  principles  in  system  design  lends  a 
larger  degree  o-f  user  friendliness  to  an  interface.  The 
background  for  this,  as  stated  earlier,  is  the 


syntatic/semantic  model.   It  is  easier  to  remember  actions 
to  be  performed  on  an  object  rather  than  the  syntax  to 
implement  the  same  task.   Dealing  with  tasks  as  a  set  of 
actions  on  a  object  is  a  natural  way  o-f  doing  things.   The 
use  o-f  pictures  arose  long  before  the  use  o-f  words.   The 
underlying  component  o-f  direct  manipulation  can  be 
described  in  a  phrase  coined  by  Don  Hat-field  o-f  IBM   " 
What  You  See  Is  What  You  Get  "  (WYSIWYG) . 
The  previous  discussions  dealt  with  the  development  o-f 
direct  manipulation.   However,  [Whi85:  in  a  holistic 
approach  to  comparing  command,  menu  and  iconic  inter-faces, 
made  the  -following  observations: 

1)  There  is  a  large  variety  o-f  user  interfaces 
avai lable. 

2)  There  seems  to  be  no  trade  off  between  haw  easy 
the  system  is  to  use  versus  how  easy  the  system 
is  to  learn. 

3)  The  type  of  interface  does  not  relate  to 
preference  or  performance. 

It  should  be  noted  that  observation  three  is  caveated  with 
a  statement  that  says  that  careful  design  of  the  interface 
is  as  important  as  the  interface  style  itself.   The 
philosophy  of  this  work  is  that  a  system  must  be  tested  as 
a  whole  and  not  the  decomposition  into  individual  facets 
of  the  system.   Seven  different  interface  styles  were 


tested  by  LWhiSSj,  and  the  results  indicate  that  though 
performance  does  not  seem  to  be  effected  by  inter-face 
style  an   iconic  system  had  the  greatest  universal  appeal 
across  the  user  domain. 

2.5.2   Problems 

The  direct  manipulation  inter-face  is  a  relatively  new  but 

some  o-f  it's  problems  and  weak  areas  have  already 

sur-f  aced . 

CShn83]  noted  the  -following  shortcomings: 

1)   There  was  no  noticeable  increase  in  performance 

as  compared  to  traditional  linguistic  models. 
2>   Learning  the  meaning  o-f  the  graphical  components 
could  be  a  problem. 

3)  The  same  graphical  icon  could  have  different 
meanings  to  different  people. 

4)  Graphical  icons  can  take  up  a  lot  of  space  on  a 
CRT  screen. 

In  addition,  CWhi851  notes  that  successful  input  with  a 
mouse  on  an  iconic  system  requires  a  rather  complete 
knowledge  of  the  syntax  associated  with  the  mouse 
position,  number  of  button  clicks,  timing  of  the  clicks, 
and  button  choices.   Furthermore,  he  came  up  with  results 


similar  to  [Sch831  in  terms  o-f  user  performance.   Spatial 
models  (direct  manipulation  models)  also  lack  straight 
■forward  syntatic  mechanisms  -for  sequencing  events  such  as 
those  provided  by  the  linguistic  (command  line)  models 
C5ib82]. 

This  project  hopes  to  overcome  some  o-f  the  above  mentioned 
problems  by  creating  a  -facility  -for  limited  command  line 
d  i  a 1 og . 

2.5.3    Icon  Design 

A  common  theme  that  runs  through  the  direct  manipulation 
literature  is  the  problem  with  associating  the  desired 
meaning  with  an  appropriate  symbol.   CLod831  -finds  that  it 
is  hard  to  determine  the  degree  to  which  we  can  rely  on  a 
particular  image  to  carry  a  speci-fic  message  is  hard  to 
determine.   Images  that  bear  a  close  resemblance  to  a 
particular  abject  or  task  can  be  generated  easily.   The 
situation  gets  worse  with  objects  or  tasks  that  are    not 
easily  rendered  into  graphical  icons.   CLod833  -feels  that 
correct  interpretation  o-f  an  image  requires  the  following 
design  considerations: 

1 )  Image  code 

2)  Caption 

3)  Context 


The  image  code  is  the  image  itself.   The  user  must  be  able 
identify  the  concept  or  object  that  the  image  is  trying  to 
portray.   The  caption  adds  a  redundant  written  assist. 
The  context  refers  to  the  -frame  of  re-ference  for 
interpreting  the  icon.   Figure  2.1  (a)  shows  an  example  o-f 
an  icon  that  has  no  meaning  without  context.   This  project 
uses  the  above  considerations  in  developing  the  set  o-f 
icons  that  Are    used.   It  should  be  noted  that  icons  unlike 
wards  must  be  created  as  there  is  no  iconic  dictionary. 
Finally,  it  is  important  that  an  icon  does  not  impart  some 
undesirable  or  unwanted  message.   Figure  2.1  (b) 
represents  an  example  o-f  an  undesirable  meaning.   This 
figure  represents  icons  used  at  airports  in  the  early 
70  s. 

An  aid  in  eliminating  the  con-fusion  associated  with  image 
meaning  is  to  develop  a  taxonomy  o-f  icons.   CArn693  notes 
that  there  are  three  -functions  that  images  support: 
picture,  symbol,  and  sign.   [Lod83D  pairs  these  -functions 
with  the  image  design  style  listed  below. 
Design  Function 


Representation   -      Picture 
Abstract         -      Symbol 
Arbitrary         —      Sign 


(a) 


tb) 


These    -figures    are    copied    -from    the    work    by    CLodS33. 
Copyright    1983    IEEE    0272-1716/83/0300-0011 


Figure    2. 1 
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The  representational  style  o-f  icons  is  usually  a  -fairly 
concrete  image  that  is  closely  associated  with  an  object. 

Icons  along  the  interstates  such  as  a  kni-fe,  -forts,  and 
spoon  and  gas  pumps  easily  portray  their  intended  meaning. 
The  abstract  icon  is  used  to  impart  a  concept  as  opposed 
to  an  object.   An  uparrow  on  a  box  is  used  to  show  which 
end  of  the  box  is  supposed  to  up.   The  arbitrary  icon  is 
one  which  no  attempt  is  made  to  convey  a  meaning.   The 
state  driving  test  requires  the  applicant  to  identity  a 
number  o-f  road  signs  that  have  no  lettering  on  them. 
Correct  identification  is  made  solely  through  the 
association  o-f  the  sign  s  shape  and  its  intendea  meaning. 
During  the  design  phase,  considerations  needs  to  be  paid 
not  only  to  the  artistic  content  o-f  the  icon  but  also  the 
icon  grouping.   Tasks  or  -functions  that  Are    similar  in 
nature  should  be  represented  by  similar  icons.   The  three 
types  o-f  iconic  designs  discussed  above  Are    implemented  in 
this  project. 

In  addition  to  the  three  types  o-f  icon  design  mentioned 
above,  there  Are    several  -factors  characterize  a  good  icon 
design.   These  include  recognition,  appropriateness  as  to 
designed  task  or  -function,  and  the  lack  o-f  unpleasant 


association  CLod833.   In  addition,  the  use  of  a  semantic 
differential  method  of  measurement  discussed  by  CCarSCO 
can  be  employed.   This  e-f-fort  is  characterized  by  an 
attempt  to  statically  measure  the  degree  o-f  association 
between  a  printed  message  and  it's  iconic  counterpart. 
The  observation  is  made  that  given  a  -final  set  o-f  similar 
icons  to  choose  -from,  the  selector  will  make  a  choice 
based  on  preference.   It  is  shown  in  CDew&E1177D  and 
CZaj&Sj  that  this  is  not  a  good  measurement  a-f  sign 
meaning  and  that  outside  -factors  contribute  heavily  to  a 
preference  choice.   The  elimination  o-f  this  preference 
choice  is  achieved  through  the  use  of  semantic 
differentiation.   This  concept  says  that  an  icon  and  it  s 
meaning  can  be  represented  as  two  objects  within  a 
semantic  space.   The  closer  the  two  objects  are  together 
in  this  semantic  space  the  greater  the  degree  of 
association.   This  semantic  space  can  be  defined  by 
adjective  pairs  grouped  into  three  classes:  Evaluative 
(good/bad,  just/unjust),  Potency  (big/small,  strong/weak) 
and  activity  (on/off,  quick/slow*. 

Three  experiments  were  performed  by  [Car BO]  using  the 
above  model.   The  first  was  a  means  of  selecting  suitable 
pairs  of  adjectives.   The  next  experiment  measured  the 
degree  of  association  between  the  icons  and  their  intended 
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messages.   The  finally  exper iment  attempted  to  -find  what 
contribution  each  individual  part  of  the  icon  played  in 
the  overall  perception.   The  major  contribution  of  tnis 
work  to  my  project  is  the  observations  of  the  last 
experiment.   This  experiment  attempted  to  identify 
significant  components  of  an  icon  structure.   It  was 
found,  for  example,  that  a  telephone  receiver  actually 
conveys  the  message  of  a  telephone  better  than  a  picture 
of  the  entire  unit. 

2.5.4    Design  Principles 

The  design  of  this  project  was  influenced  by  the  seven 
principles  as  enumerated  by  CSmi82]  and  related  in 
Chapter  1. 

These  principles  are  discussed  below: 

1>   The  use  of  a  familiar  user  conceptual  model  is  an 

approach  in  which  a  physical  analogy  or  metaphor  is 
used  to  convey  a  desired  function.   Apple's  Macintosh 
uses  a  trash  can  in  which  various  icons  (such  as  a 
file  icon)  can  be  deposited.   This  achieves  the  result 
of  deleting  that  icon  from  the  system.   This  project 
uses  several  physical  metaphors  to  help  implement  the 
conceptual  model.   These  include  buttons,  attenuators 


and  controls.   Also,  communications  between  various 
icons  Are    conveyed  via  directional  line  on  the  screen. 

2)  The  seeing  and  pointing  principle  states  that  with  a 
picture  worth  a  thousand  words,  it  is  best  to  display 
as  much  o-f  the  -functionality  o-f  the  system  as 
possible.   This  acts  as  a  "visual  cache"  for  the 
limited  amount  o-f  short-term  memory  that  humans 
possess.   The  Star  user  inter-face  has  a  property  and 
option  list  are  very  similar  to  the  condition  and  menu 
selection  options  o-f  this  project  in  that  they  both 
impart  attributes  to  objects  on  the  screen. 

3)  The  WYSIWYS  principle,  discussed  in  detail  earlier,  is 
utilized  in  this  project.   This  is  shown  with  the 
representation  o-f  various  icons  on  the  screen  and 
their  various  interconnections  and  attributes. 

4)  Consistency  deals  with  the  idea  that  all  actions  or 
tasks  Are    achieved  the  same  way  regardless  o-f  the 
state  o-f  the  inter-face. 


5)   Simplicity  is  one  of  those  principles  that  all 

designers  hope  to  adhere  to  but  most  seldom  do.   The 
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concept  o-f  having  no  more  than  one  way  o-f  doing 
something  is  applied  through  out  my  project.   This 
literature,  [Smi823,  di-f-fers  from  my  project  in  that  a 
three  button  mouse  is  used  instead  o-f  a  two  button 
mouse.   The  author  -feels  that  i-f  a  need  arises  then 
the  various  mouse  button  combinations  <  8  total  )  can 
be  displayed  as  a  continuous  message  on  the  screen  as 
an  aid  to  short  term  memory. 

b)       The  modeless  interaction  principle  states  that  there 
are  not  multiple  -functions  -for  the  same  key  depending 
on  which  mode  the  users  is  in.   The  UNIX  vi  editor  is 
an  example  o-f  a  mode  dependent  text  editor.   The 
letter  i,  -for  example,  when  depressed  can  either 
generate  the  character  " i "  or  put  the  user  into 
insertion  mode.   This  mode  shi-fting  can  cause 
con-fusion  and  undesirable  results.   It  should  be  noted 
however  that  this  project  does  demonstrate  certain 
mode  related  aspects.   The  number  and  type  o-f  actions 
that  a  user  can  engage  are  limited  to  the  context  o-f 
the  menu  or  property  assignment  selections  being  made. 
In  addition,  the  various  mouse  button  selections  can 
be  viewed  as  taking  on  mode  characteristics  o-f  a  -finer 
granularity. 


7)   User  tai lorabi 1 i ty  allows  the  user  to  modify  the 

working  environment  in  order  to  meet  the  goais  of  a 
given  task.   This  principle  is  reflected  in  tnis 
project  by  the  ability  to  assign  attributes  and 
properties  to  various  iconic  object  on  the  screen. 

2.6   Related  Work 

This  section  deals  with  a  brief  survey  of  other  office 
automation  systems  tools  that  utilize  a  graphical 
inter-face.   These  include  a  generator  o-f  direct 
manipulation  o-ffice  systems,  tools  that  aid  in  the  meeting 
process,  and  means  o-f  graphically  querying  a  database. 
Work  by  [Hud863  discusses  a  system  -for  generating  direct 
manipulation  office  systems.   This  system  is  known  as 
HIGEENS  —  The  Human  interface  Braphical  Generating  System. 
Higgens  treats  data  as  an  active  object  not  only 
containing  data  but  also  consisting  o-f  a  description  o-f 
the  semantics  of  the  data  and  means  to  the  implement  the 
semantics.   Their  approach  has  much  in  common  with  the 
general  principles  of  object  orientated  programming 
systems  and  knowledge  representation.   The  system  uses  the 
semantics  of  the  application  to  check  boundaries,  derive 
new  data,  and  update  the  screen.   The  use  of  attribute 
grammar  and  incremental  attribute  evaluation  is  used  to 
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implement  the  data  models.   It  should  be  noted  that  this 
work  concentrates  primarily  on  the  algorithms  and 

techniques  used  by  the  run— time  component  o-f  the  system  to 
support  the  generated  of -f  ice  system. 

The  next  system  was  prompted  by  the  observation  that 
office  workers  spend  anywhere  from  -307.— 707.  of  their  time 
in  meetings.   To  this  end,  an  experimental  meeting  room 
was  developed  at  Xerox's  Palo  Alto  Research  Center.   This 
system,  known  as  Colab,  utilized  a  graphical  interface  and 
was  networked  over  a  group  of  workstations.   A  workstation 
is  assigned  to  each  participant  in  the  meeting  and  they 
all  have  a  portion  of  their  screens  that  3ire    common  to 
each  other.   Work  by  CSte87]  developed  two  major  tools  for 
use  on  the  Colab  system.   These  tools  were  based  on  the 
assumption  that  the  meeting  process  can  be  broken  down 
into  three  distinct  areas:  brainstorming,  organizing,  and 
evaluating.   The  first  ,  Cognoter,  is  used  as  an  aid  in 
organizing  and  preparing  presentations.   This  tool  allows 
for  a  collective  effort  by  the  participants  to  establish 
some  sort  of  order  over  a  group  of  individual  ideas.   Fore 
example,  where  in  a  project  report  would  the  discussion  of 
the  tools  and  hardware  environment  be  included.   Cognoter 
allows  individuals  to  enter  ideas  on  a  common  screen  witn 
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supporting  text  windows.   These  ideas  are  then  moved 
around  on  the  screen  in  to  some  -form  of  order  and  are 
connected  by  arrows.   The  second  grapnical  meeting  tool 
that  is  used  is  known  as  Argnoter.   C5teB7j  notes  that 
discovering,  understanding,  and  evaluating  of  proposals 
aid  in  making  in-formed  decisions.   Graphical  tools  have 
been  developed  that  aid  in  the  proposal  making  stage,  the 
argument  stage,  and  the  evaluating  stage. 

Another  direct  manipulation  graphical  inter-face  is  that  o-f 
browsing  a  database.   CLar863  notes  that  four  basic 
operations  occur  when  browsing  a  database  :  structuring, 
filtering,  panning  and  zooming.   These  an~e    defined  as 
chosing  a  finite  set  of  object  classes,  selecting  an 
occurrence  form  these  object  classes,  investigating 
neighboring  object  occurrences  and  determine  the  degree  of 
detail  with  which  an  object  occurrence  is  to  be  studied. 
Examples  of  all  four  of  the  above  operations  are 
demonstrated  in  this  project.   Though  the  above  system 
described  by  CLar863  is  based  on  alphanumeric 
representations,  he  mentions  the  need  for  a  graphical 
interface.   Current  commercial  products  such  as  hypercard 
aid  in  the  advancement  of  this  approach. 
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CHAPTER  3  -  CONCEPTUAL  MODEL 

3.1  Introduction 

This  chapter-  deals  with  certain  concepts  of  the  office 
environment  in  which  we  wish  to  apply  a  direct 
manipulation  inter-face.   The  two  topics  addressed  are  the 
■familiar  user  reference  model  o-f  the  o-f -f  ice  such  as 
messages  and  -file  systems  and  the  entities  that  moaei  the 
af-fice  concept. 

3.2  Office  Model  Definitions 

In  developing  a  background  for  a  message  distribution 
system  the  -following  items  are  de-fined 

1)  Filing  System  —  a  database  -from  which  preexisting 
messages  can  be  either  retrieved  or  createa 

2)  Messages  —  an  instance  of  an  object  selected  from 
the  -filing  system 

3)  People  —  the  ultimate  destination  o-f  a  message 

4)  Mail  —  the  vehicle  by  which  messages  Are 
delivered  to  targets 

5)  Responses  —  certain  replies  or  notification  of 
"no-response"  triggered  by  the  sending  of  mail 
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3-3    Entities 

Entities  are    the  models  used  to  convey  the  various  tasks 
associated  with  a  message  distribution  system.   There  are 
three  types:  data,  -functional ,  and  person. 

3.3.1    Data  Entities 

The  data  entity  takes  the  -form  of  either  a  pre— printed 
document  requiring  data  entry  or  a  textual  type  o-f 
document.   The  -first  item  can  be  thought  o-f  as  a  entity 
that  uses  a   -fill  in  the  blank   approach  generated  ay 
prompts  or  questions  on  the  form  itself  <e.g.  —reporting 
the  results  of  test  or  laboratory  test  forms).   A  textual 
document  ,  on  the  other  hand,  is  a  means  of  communicating 
ideas,  thoughts,  decisions,  and  comments  in  a  narrative 
manner. 

Data  entities  can  be  further  divided  into  text  data 
en  t  i  t  i  es  and  form  data  en  t  i  t  i  es .   The  f  i  rs t  is  comp  r  i  sed 
of  such  things  as  letters,  memos,  reports  and  any  other 
non— form  related  documents.   The  second  is  comprised  of 
preformated  question  type  of  forms  requiring  operator 
input.   This  includes  such  things  as  test  reports, 
surveys,  questionnaires,  and  inventory  records.   Both  of 
the  above  mentioned  entities  can  have  any  combination  of 
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the  following  properties  or  attributes. 

1)  Decisions 

2)  Comments 

3)  Administrative  action 

4)  General  information 

5)  Required  response  time 

6)  Route 

The  decision  attribute  signi-fies  that  the  data  entity 
contains  one  or  more  items  that  require  a  yes/no  type  of 
decision.   An  example  o-f  this  might  be  a  purchase  oraer 
form  requiring  management  approval.   The  comment  attribute 
is  used  when  a  written  response  is  required  to  intormatian 
contained  in  the  data  entity.   This  attribute  can  oe  used 
as  a  vehicle  to  gather   information  from  various 
individuals  within  an  organisation.   The  administrative 
action  attribute  is  used  when  some  -form  a-f  clerical 
■function  is  need.   Filling  in  information  on  a  blank  form 
template  is  an  example  of  this  attribute.   Required 
response  time,  can  also  be  assigned  to  the  data  entity. 
This  attribute  is  utilized  when  time  dependent/  time 
critical  constraints  are    required.   The  route  attribute  is 
used  to  determine  where  the  data  entity  will  eventually  be 
targeted. 
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-3.3.2    Functional  Entities 

The  -functional  entities  are  entities  that  support  actions 

performed  on  data  entities.   They  are    listed  as  -follows. 

1)  Filing  cabinets 

2)  Nodes 

3)  Printers 

4)  File  Servers 
4)   Ports 

The  -filing  cabinets  are  receptacles  in  which  data  entities 
are   stored.   They  are  broken  down  into  two  drawers,  one 
■for  the  text  material  and  one  -for  form  type  of  material. 
Filing  cabinets  supports   four  of  the  six  phases  of  paper 
handling  as  report  by  CCho821.   These  phases  are: 

1)  creation  of  the  document 

2)  its  physical  or  logical  presence 
3>   storage 

4)  retrieval 

the  last  two  phases  are    handled  by  the  routing  mechanism 

5)  distribution  within  the  organization 

6)  distribution  external  to  the  organization 

Data  entities,  when  retrieved,  are  placed  in  a  temporary 
location  know  as  a  clipboard.   It  is  while  the  data  entity 
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information  is  resident  on  the  clipboard  that  operations 
such  as  editing,  printing  and  routing  can  be  performed. 

Nodes,  as  used  in  this  project,  represent  unique 
organizational  units  within  the  -firm.   In  this  case,  they 
represent  departments.   Each  node  has  an  associated  -filing 
cabinet  that  acts  as  a  database  for  that  department. 

File  servers  act  as  a  hub  for  nodes  in  trafficking  data 
entities  through  the  system  and  have  -filing  cabinets 
associated  with  them.   Printers  perform  their  function  on 
the  current  -file  that  has  been  retrieved  (i.e  -  it  prints 
the  contents  o-f  the  clipboard).   The  -final  entity  in  this 
group  is  know  as  a  port.   Ports  provide  the  -facility  to 
not  only  move  up  and  down  within  the  organizational  chart 
but  also  acts  as  an  outlet  to  the  environment  external  to 
the  organization. 

There  are  three  operations  associated  with  the  -file 
management  subsystem.   The  first  is  the  ability  of  the 
operator  to  move  through  the  organizational  chart  via  the 
ports  and  the  use  of  the  mouse.   The  second  is  file 
manipulation  as  discussed  earlier.   The  last  operation  is 
the  ability  to  print  files  (data  entities). 


3.3.3   Person  Entities 

Person  entities  can  be  thought  of  as  a  group  of 
individuals  that  have  a  predetermined  relationship  to  each 
other.   Messages,  obtained  -from  the  -file  system  can  be 
routed  to  selected  individuals  within  these  organizational 
charts.   There  are  two  selection  operations  associated 
with  the  routing  of  a  message. 

1)  Random  selection 

2)  Group  Selection 

Random  selection  is  used  to  pick  a  finite  group  o-f  people 
fro  receipt  of  a  data  entity.   This  allows  not  only  for 
individual  selection  but  also  for  selection  of  individuals 
outside  the  constraints  of  their  organisation  structures. 
Group  selection  is  used  as  a  means  of  broadcasting  common 
interest  messages  to  individuals  within  an  organization. 
For  example,  a  data  entity  could  be  send  to  all  members  of 
the  Quality  Assurance  Department. 
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CHAPTER  4  -  DIRECT  MANIPULATION  INTERFACE 

4.1  Introduction 

This  chapter  presents  the  visual  interface  o-F  what  the 
user  will  see  in  the  performance  of  direct  manipulation 
actions  upon  the  previously  described  information 
distribution  model.   This  chapter  does  not  address  any  o-f 
the  implementation  details  but  rather  performs  a  mapping 
o-f  the  representations  discussed  in  Chapter  3  onto  the 
screen  displays  and  controls  that  the  user  has  access  to. 

4.2  Overview 

A  top  level  screen  is  utilized  that  allows  the  user  to 
gain  access  to  various  organizations  and  departments 
within  the-company.   The  -file  management  screens 
represents  a  modified  organizational  chart  o-f  the  chemical 
company  and  the  routing  screens  takes  the  -form  o-f  a 
personnel  organization  chart. 

4.3    Top  level  model 

The  top  level  screen  is  used  as  a  mechanism  in  which  to 
gain  entry  into  either  the  -file  management  or  routing 
models.   Figure  4.1  show  the  top  level  screen  layout.   The 
user  positions  the  mouse  cursor  over  either  o-f  the 
organization  choices  and  depresses  the  left  mouse  button 
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I0P  L£UEL  INFORMATION  DISTRIBUTION  SYSTEM 
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Figure  4.1   Tap  Level  Organizational  Chart 


to  activate  the  desired  screen  (henceforth  known  as 
clicking  the  mouse  button).   There  are  two  additional 
direct  manipulation  buttons  on  this  screen.   The  -first, 
located  in  the  upper  left  hand  corner  of  the  screen,  is 
labeled  assistance.   Clicking  this  button  causes  a  window 
to  appear  containing  guidance  and  information  on  the 
operations  available  -for  a  given  screen.   The  second 
button  is  the  quit  button  and  clicking  it  allows  the  user 
to  return  to  the  operating  system. 

4.4   File  Management 

The  file  management  model  is  composed  of  three 
organizational  screens.    The  -functional  entities 
discussed  in  Chapter  3  Are    utilized  with  these  screens. 
The  -following  is  a  brie-f  graphical  description  of  each: 

1)  Filing  cabinets  -  an  icon  representing  a  filing 

cabinet 

2)  Nodes  —  squares  (used  to  represent  departments) 

3)  Printers  —  trapezoids 

4)  File  servers  —  hexagons 

5)  Ports  —  buttons  that  allow  the  user  to  traverse 

through  the  system 

Figures  4.1,  and  4.2   show  two  of  the  organizational 
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screens  available.   Traversing  through  these  screens  is 
achieved  by  placing  the  mouse  cursor  over  the  return 
button  and  clicking  the  left  mouse  button.   The  new 

location  within  the  organizational  chart  is  then  presented 

(i.e.  —   a  new  screen  is  generated). 

Filing  cabinets  act  as  information  storage  recepticles  and 
each  node  and  -file  server  has  a  cabinet  associated  with 
it.   In  order  to  access  the  -filing  cabinets,  the  user 
places  the  mouse  cursor  over  either  a  node  or  a  file 
server  and  clicks  the  le-ft  mouse  button.   This  causes  a 
•file  cabinet  icon  to  appear.   The  drawers  of  the  cabinet 
can  then  be  opened  via  the  le-ft  mouse  button  and  the  files 
displayed  as  a  series  of  file  folders.   An  example  of  a 
filing  cabinet  and  a  display  of  files  is  given  in  Figures 
4.3  (a)  and  4.3  (b) . 

A  file  folder  can  be  opened  by  positioning  the  cursor  over 
the  desired  file  and  file  and  clicking  the  left  mouse 
button.   This  allows  far  one  of  the  two  types  of  data 
entities  to  then  become  available  for  editing.   The  data 
entity  screen  is  composed  of  three  buttons  and  an  area  for 
the  actual  text  or  form.   The  first  button,  located  in  the 
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Figure  4.2   Manu-f actur ing  Organisational  Chart 
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Figure  4.3   Example  o+  Filing  Cabinet  and  Display  screens 


upper  le-ft  hand  corner  of  the  screen  is  the  assistance 
button  whose  properties  have  already  been  discussed.   The 
second  button  is  the  return  button  that  ai lows  the  user  to 
return  to  the  -file  selection  state.  The  next  button  is  the 
attribute  assignment  button.   CI i eking  ,  with  the  left 
mouse  button,  brings  up  an  attribute  menu  selection 
screen.   Figures  4.4  and  4.5  gives  an  example  of  these  two 
screens.   Selection  o-f  the  -first  -four  attributes  in  Figure 
4-5  is  achieved  by  positioning  the  mouse  over  the  desired 
choice  and  clicking  the  le-ft  mouse  button.   The  response 
time  attributes  is  assigned  by  -first  clicking  the  le+t 
mouse  button  over  the  choice  and  then  typing  in  the 
desired  response  time.   To  exit  the  attribute  selection 
mode,  the  return  button  is  triggered.   For  all  o-f  the 
filing  cabinets  screens  there  exists  a  return  button  that 
allows  the  user  to  revert  back  to  the  previous  screen. 
Also,  an  assistance  button  is  available  -for  each  screen. 
The  -final  button ,  return  to  top ,  was  deve  loped  out  o-f  the 
prototype  design  o-f  this  project.   The  observation  was 
made  that  once  a  user  had  what  they  wanted  in  their  nanas 
they  wanted  to  distribute  it  as  soon  as  possible.   The 
button  allows  one  to  return  immediately  to  the  personnel 
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Figure  4.4   Example  o-f  the  Data  Entity  Screen 
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Figure  4.5   Example  o-f  a  Routing  Model 


charts  in  order  select  personnel  -for  distribution. 

4. 5    Routing 

The  routing  subsystem  is  composed  o-f  personnel 

organization  charts  that  Are    associated  with  each 

department  in  the  company.   The  mouse  cursor  is  placed 

over  the  desired  department  and  the  right  mouse  button  is 

clicked.   This  action  brings  up  the  associated  personnel 

chart. 

Once  the  user  has  called  up  this  screen,  there  are  three 
general  operations  that  can  occur. 

1)  Return 

2)  Selection 

3)  Send 

The  return  button  is  used  to  switch  the  screen  back  to  the 
company  organization  chart.   The  user  can  then  select 
various  individuals  -from  within  different  departments  -for 
a  routing  list.   The  return  -facility  is  represented  oy  the 
area  labeled  return  located  ne;<t  to  the  assistance  button 
in  the  upper  le-fthand  side  o-f  the  screen. 

The  selection  operation  determines  the  mode  o-f  choice. 
There  ^re    two  selec  t  ion  modes  avai lab le:  the  group  button 
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and  the  random  button.   The  group  choice  allows  the  user 
to  broadcast  a  data  entity  over  an  organisational  chart- 
The  selection  mode  o-f  operation  works  the  -fol  lowing  way. 
The  user  -first  positions  the  mouse  cursor  over  the  group 
button  and  clicks  the  le-ft  button.   Next,  the  cursor  is 
placed  av&r    the  desired  person  entity  within  the 
organizational  chart  and  the  le-ft  mouse  button  is  clicked. 
This  causes  the  individual  selected  and  all  ind i vidua Is 
below  him  to  became  targets  -far  a  data  entity.   For 
example,  i  -f  Jones  were  selected  then  Janes,  Hankley,  ana 
Tingley  would  all  become  recipients  at  the  same  data 
entity  (see  Figure  4.5). 

The  random  selection  mode  allows  the  user  to  select  a 
variety  of  individuals,  outside  a-f  the  framework  ot  the 
organizational  charts.   The  user  -first  "pushes"  the  random 
button  using  the  le-ft  mouse  button  and  proceeds  to  chose 
the  individuals  wanted  on  the  routing  list  by  placing  the 
cursor  over  each  individual  and  clicking  the  le-ft  mouse 
button. 


The  send  button  is  used  to  cause  the  transmittal  o-f  a  data 
entity  to  targeted  individuals.   One  o-f  the  attributes 
associated  with  the  data  entity  is  response  time.   If    a 
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response  time  is  specified  and  an  individual  exceeds  this 
response  time  then  a   no  response   message  is  displayed. 

There  is  one  -final  instance  o-f  a  screen  that  needs  to  be 
discussed.   This  is  the  mail  received  screen.   A  very 
limited  simulation  is  performed  in  order  to  demonstrate 
what  can  be  done  with  received  mail.   An  area  in  the  upper 
right  hand  oarner    o-f  the  screen  will  become  visible  and 
inform  the  user  that  a  message  has  been  received. 
Clicking  the  cursor  an  this  icon  will  cause  the  actual 
message  to  be  displayed.   See  Figure  4.6.   This  screen  has 
the  usual  assistance  and  return  buttons.   In  addition, 
there  is  a  save  button  for  filing  the  message  away  and 
discard  button  that  deletes  the  message. 
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F  i gure  4.6    Message  be reen 


CHAPTER  5  -  IMPLEMENTATION 

5.1  INTRODUCTION 

The  purpose  o-f  this  chapter  is  to  present  both  the 
hardware  and  so-ftware  considerations  decided  upon  -for  this 
project.   Attention  is  paid  not  only  to  the  tools  useo  but 
also  the  major  data  structures,  the  so-ftware  aesign,  and 
the  Different  modules.   Finally,  a  list  o-f  implementation 
assumptions  is  given  in  order  to  define  the  bounos  o-f  tne 
project . 

5.2  HARDWARE/SOFTWARE  TOOLS 

The  inter-face  is  implemented  on  a  Epson  Equity  1  Personal 
Computer  equipped  with  a  Genius  Mouse  operating  unaer  the 
MS-DOS  operating  system.   The  programming  toois  usea  are 
the  Borland  Turbo  Pascal  compiler  V3.0  and  the  Turbo 
Graphics  Toolbox  V3.0.   The  word  processor  is  the  PFS: 
F  ro-fessional  Write  package. 

5.3   MOUSE  INTERFACE 

Communications  wtih  the  ouse  is  establishea  through  the 
use  o-f  one  o-f  the  two  types  o-f  interrupts  available  on  a 
DOS  baseo  personnel  computer.   This  interrupt,  known  as  a 
BIOS  interrupt,  allows  one  to  obtain  the  -following 
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in-formation. 

i.   Check  to  see  i f    mouse  is  installed  ana  aetermine 
the  number  o-f  buttons 

2.  Determine  position 

3.  Set  position  o-f  cursor 

4.  Set  x  and  y  mouse  boundaries 

5.  Display/erase  mouse  cursor 
t>.   Set  screen  movement  ratios 

Pascal  provides  a  vehicle  -for  generation  interrupts 

there-fore 

allowing  access  to  the  above  -functions. 

5.4   DATA  STRUCTURES 

There  are  two  major  data  structures  associated  with  this 
project.   An  array    o-f  records  know  collectively  as 
■filein-fo  and  a  two  dimensional  array  o-f  records  know  as 
people.   Individual  occurrences  o-f  -filein-fo  correspond  to 
the  data  entities  discussed  earlier  and  contain  the 
■following  in-formation.   There  are  boolean  fields  that 
indicated  a  record  is  in  use,  a  test  or  file  -form,  ana 
indicators  o-f  which  attributes  a  data  entity  might  nave 
been  selected  (i.e.-  dec ision, comment , aaministrat l ve 
action  and  general  in-formation i  .       An  integer  -field  is 
available  -for  response  time  .   A  -file  name  -field  o-f  14 
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characters  is  used  to  point  to  a  tile  on  aisk  that 
contains  the  actual  te:<t  or  -form  message.   Finally,  an 
array  o-f  characters  is  used  to  indicate  which  person 
entities  that  a  given  -filein-fo  record  is  targeted  for. 
Hence,  each  -filein  +  o  record  is  compose   o-f  pointers  to  a 
text  or  -form  -file  located  on  disk,  a  list  o-f  attributes 
associated  with  the  -file  on  disk  and  a  list  o-f  individual; 
•for  which  the  -file  on  disk  is  destined. 

The  second  major  data  structure  is  the  two  dimensional 
array    o-f  record  know  as  people  and  correspond  to  tnese 
person  entities  as  describeo  in  Section  1.3.   Each 
occurrence  o-f  a  people  record  has  the  -following 
characteristics.   A  -field  indicating  the  name  o-f  the 
individual  record  and  an  array    o-f  integers  used  as 
pointers  to  other  occurrences  o-f  people.   This  sort  o-f 
linkage  conveys  the  hierarchical  structure  o-f  the 
personnel  charts.   An  additional  data  structure,  know  as 
registers,  is  composed  o-f  10  integers  and  is  used  along 
with  a  variety  o-f  MS-DOS  interrupts  in  order  to 
communicate  with  the  mouse.   This  is  discussed  in  detail 
in  the  previous  section. 


5.5    SOFTWARE  DESISN 


This  project  operates  in  a  mode  o-f  constantly  checking  the 
state  o-f  the  mouse  buttons,  the  locations  o-f  the  cursor 
and  the  current  state  o-f  the  model.   Exiting  this  sampling 
mode  is  achieved  by  the  use  o-f  the  left  or  right  mouse 
button  over  an  appropriate  srea    within  a  given  state.   The 
sampling  mode  is  exited  only  during  times  o-f  state  change, 
-file  accesses  to  the  disks,  dynamic  graphic  structures 
being  implemented  and  certain  keyboard  dialogues.   A  state 
handler  is  implemented  with  a  Pascal  case  statement  that 
makes  subsequent  calls  to  the  appropriate  handler.   The 
charter  of  the  handler  is  to  apply  on  interpretation  to 
the  coordinates  being  passed  down  -from  the  mouse.   This 
interpretation  determines  whether  new  states  sre    created 
and  whether  a  -file  related  action  is  to  occur. 

There  Are    seven  state  handlers  and  -five  -file  related 
procedures.   These  seven  state  handlers  sre    listed  below. 

1.  Top  Level  Handler  <Figlloc> 

2.  Organizational  Handler  iFig21ac) 

3.  Cabinet  Handler  (Fig41oc) 

4.  File  display  Handler   (FigSloc) 

5.  Data  Entity  Handler   (Figiloc) 

6.  Attribute  Handler 
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7.   Personnel  Handler 

The  Top  Level  handler  determines  whether  the  manufacturing 
or  research  organization  has  been  chosen  and  changes  the 
sate  accordingly.   The  organizational  handler  determines 
which  department  is  being  selected  and  whether  the  sate 
snould  be  change  to  either  the  personnel  charts  or  the 
-filing  cabinets.   The  cabinet  handler  opens  one  o-f  the  two 
drawers  and  call  a  procedure  to  dynamically  draw  the  file 
folders.   The  file  display  handler  determines  wmch  files 
is  to  be  read  in  and  makes  the  actual  cail  to  disk  in 
order  to  retrieve  the  desired  file.   The  data  entity 
handler  loacis  the  selected  file  onto  the  clipboard  ana  is 
displayed  on  the  screen.   The  attribute  handler  allows  the 
user  to  assign  attributes  to  the  file  that  is  resident  on 
the  clipboard.   The  personnel  chart  handler  determines  who 
"as  selected  for  distribution  and  what  department  they  are 
associated  with. 

The  four  file  related  handlers  Are    listed  below. 

1 .  Drawstuf f 

2.  Getfile 

3.  Selectperson 

4.  Grouperson 

The  drawstuf f  procedure,  called  from  the  cabinet  handler. 
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dynamically  draws  all  the  data  entities  that  are    marked  as 
"m-use"  within  the  selected  drawer.   The  Get-file 
procedure  use  a  pointer  <the  actual  -file  name)  associated 
with  a  given  data  entity  in  order  open  and  read  in  a  file 
located  on  the  disk.   The  Selectpersons  procedure 
transfers  data  -from  the  person  entity  to  the  data  entity 
while  in  random  selection  mode.   The  alternative  way  to 
passing  this  type  of  information  is  by  a  call  to 
Brouperson.   This  selection  mooe  causes  the  individual 
selected  to  become  the  root  node  and  is  stored  in  the  data 
entity  along  with  all  subsequent  nodes  descending  from  the 
root  node.   An  editor  is  available  for  limited  one  line 
editing  of  the  textual/form  field  of  the  data  entity. 

5.6    Statistics 

The  implementation  was  divided  into  two  Pascal  programs  : 
one  for  int ial i zat ion  of  various  data  stuructures  and 
screens  and  the  second  for  the  actual  interface.   The 
total  number  of  lines  of  code  for  both  programs  was  2150. 
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APPENDIX  A 


SOURCE  CODE 


A-l 


■c*c-,u-> 

program  in  i  tchem; 

C*I  typedef.sys} 
■£*I  graph  i  x  .  sysj' 
C*I  kernel . sys> 
C$1  polygon. hgh> 

type 

tnam  —    string£l43; 

type 

peop  ieinf o= record 

pname: string C 143  ; 
links:array  CI. .53  of  integer; 
end; 

type 

registers=record 

ax,bx,cx,dx,bp,si,di,ds, es, f lags: integer; 
end; 

var   aspect loc  ,  rad  :  real  ; 

j,l,x,y,i,jj, wor ldnum, savx, savy , tmpx , tmpy  :  integer; 

orgx, orgy, savscale, scale_x,:a,k  : integer  ; 

prtf lag  :  boolean; 

chars  :  char; 

regs  :    registers; 

aa,bb,cc  :  plotarray; 

names  :  array    1 1 . . 363  of  f nam; 

people*  i  le  :  -file  of  people  info; 

people  :  array C  1 .  .63  o-f  array  CI .  .  10  3  of  peop  ieinf  o; 


i       *■#       turn  Mouse  cursor  off  ** 
procedure  turn of f ; 
beg  in 

regs. ax: =2; 

intr ($33, regs) ; 
end; 

£       **   turn  Mouse  cursor  on   *-* 

procedure  turnon  ; 

begin 

regs. ax  :=  1; 

intr (*33, regs) ; 


2nd; 


procedure  init; 
oegin 

In  i tGraphic; 
namesC 13:= 'SMITH   ; 
: =  JONES ' ;namesC33:= 
namesC43 : = ' HANKLEY ' 
:=  TINGLEY';namesC63 
namesC73:=' AUTRE Y   ; 
:=  BRITTON ' ;namesC93 
names C 103: = ' CAHAN   ; 
:=  CHEE  ; namesC 123:= 
names C 13  3: = 'CRAIG '  ; 
:=  DA  I LEY ' ;namesC153 

:i 


namesC 163 : = ' GRECO 
: =  HARDACRE  ; names C 
names C 193 :  =  ' HIRTLER 
:=  HOANG' ;namesC213: 
names  C  22  3  :  =  ' HUCHRO 
:= ' INGRAM ';namesC243 
names C 253: =' KLIEN '  ; 
:=  MORGAN' ;namesC273 
namesC2S3:='OTTE'  ; 
:  =  PEELER ' ; n  ames  C  30  3 
namesC313:='SAAD'  ; 
:  =  ' SCHUETZ ' ; names  C3 
namesC343:='STEIN' 
: =  STRAWN ' ; namesC 36 


namesC23 

MARLY ' ; 
;  names! 5  3 
:=  BASIL'; 

namesCS3 
:  =  ' BROWNER  ; 

names L 113 

CIPRIANI '; 

names L 143 
:=  FREDERICK 

namesC 173 
8  3:  =  ' HARMON ' i 

;  names 120 3 
= ' HORNEY ' ; 
;  namesC233 
:='INKLEY'; 

namesC263 
: = ' NEMR ' ; 
names I 29 3 

RANFT ' ; 
names C 32 3 
3:='SHETTER' \ 

names 135 3 
: = ' STREET ' ; 


aaCl, 13 
aaC2, 13 
aaC3, 13 
aaC4, 13 

aaL5, 13 
aaC6, 1 3 
aaC7, 13 

bbCl,  13 
bbC2, 13 
bbC3,13 
bbC4, 13 
bbC5, 13 

ccCl, 13 
ccC2, 13 


295; 
285; 
295; 
355; 
365; 
355; 
295; 


aaCl,23 

aaC2, 2  3 
aaC3,23 
aaC4,23 
aa  C  5 ,  2  3 
aaC6,23 
aaC7,23 


295;  bbCl,23 

285;  bbC2,23 

345;  bbC3,23 

355;  bbC4,23 

295;  bbC5,23 

100;  cell, 2 3 

90  ;  ccC2,23 


=60 ; 

=  75; 
=  90; 
=  90; 

=  75; 

=  60; 
=  60; 

=  130; 
=  155; 
=  155; 
=  130; 
=  130; 

=  60; 
=  85; 


ccC3, ID 
ccC4, 13 
ccC5, 13 


=  140;  ccC3,23  :=  85; 
=  150;  ccC4,23  :=  60; 
=  100;  ccC5,2D  :=  60; 


prttlag  :=  -false; 


drawborder; 

gotoxy  <20, 2) ; 

write('T0P  LEVEL  INFORMATION  DISTRIBUTION  SYSTEM) 

drawsquare  (35,  30,  1 10,  40,  -false)  ; 

drawtext (40,34, 1,  ASSISTANCE' ) ; 

d rawsquare ( i 30 , 30 , 205 , 40 ,  f  a  1 se )  ; 

drawtext (145,34, 1,  QUIT' 

drawpolygon {as, 1,7,0, 1,0 

drawtext (303, 70, 1 ,  FILE ' )  : 

drawtext (303, 78, 1 , ' SERVER' ) ; 

drawpolygon (bb, 1,5,0, 1,0) ; 

drawtext (298, 142, 1,  PRINTER' ) ; 

drawsquare ( 100,  100,  180,  110, -false)  ; 

drawtext  (101,  103,  1,  '  MANUFACTURES  '  >  ; 

drawsquare  (470,  100,  550,  1 10,  -false)  ; 

drawtext (480, 103,1,  RESEARCH' ) ; 

drawl ine (325, 90, 325, 130) ; 

d  raw line! 285 , 75 , 1 40 , 1 00 ) ; 

drawl ine (365, 75, 510, 100) ; 

savescreen  (  '  -f  igl  '  )  ; 

prt-flag  :=  true; 

i -f  prttlag  then  hardcopy  ( -false,  6>  ; 


c learscreen; 

drawborder   ; 

gotoxy (25, 2) ; 

write(  MANUFACTURING  ORGANIZATIONAL  PLAN'); 

drawsquare  (35,30,  1 10,  40,  -false)  ; 

drawtext (40,34, 1,  ASSISTANCE  ) ; 

drawsquare (130, 30, 205, 40,  false)  ; 

drawtext (145,34, 1,  RETURN'); 

drawpolygon (cc, 1,5,0, 1,0) ; 

drawtext (102, 70, 1,  PRINTER') ; 

drawpolygon (aa, 1,7,0, 1,0) ; 

drawtext (303, 70, 1,  FILE  ) ; 

drawtext (303,78, 1, 'SERVER' ) ; 

drawsquare  ( 100,  130,  180,  160,  -false)  ; 

drawtext (105, 135, 1, ' INVENTORY ' ) ; 

drawtext (105, 145, 1,  CONTROL'); 

drawtext ( 105, 155, 1 ,  DEPT. "); 

drawsquare  (286,  130,  366,  160,  -false)  ; 

drawtext (290, 140, 1, 'DISTRIBUTION' ) ; 

drawtext (290, 150, 1,  DEFT. '); 


drawsquare (460,  130,540,  160, -false)  ; 

drawtext (463, 140, 1,  PRODUCTION  )  ; 

drawtext (463, 150, 1,  'DEPT.  > ; 

drawl ine (285, 75, 145, 72)  ; 

drawl ine (290,80, 140, 130)  ; 

drawl ine (323, 90, 323, 130) ; 

d  r aw 1 i  ne ( 36 1 , 80 , 500 , 1 30 ) ; 

savescreen  (  '  -f  ig2  '  )  ; 

i-f  prt-flag  then  hardcopy  ( -false,  6)  ; 

prt-f  lag:  =-f  alse; 

c  1  earsc  reen ; 
drawbarder   ; 
gotoxy (30, 2) ; 

write ( 'RESEARCH  ORGANIZATIONAL  PLAN' 
drawsquare  (35,  30,  110,  40,  -false)  ; 
drawtext (40,34,  1,  'ASSISTANCE  )  -, 
drawsquare  (130,  30,  205,  40,  -false)  ; 
drawtext (145,34, 1, 'RETURN'); 
drawpolygon  (cc,  1,5,0,1,0); 
drawtext (102,70, 1,  PRINTER' ) ; 
d  rawpa 1 ygon ( aa , 1,7,0, 1,0) ; 
drawtext (303, 70, 1 ,  FILE); 
drawtext (303, 78, 1 , ' SERVER ' ) ; 
drawsguare  (100,  130,  ISO,  160,  -false)  ; 
drawtext (105, 135, 1,  QUALITY' ) ; 
drawtext (105, 145, 1,  ASSURANCE  ) ; 
drawtext ( 105, 155, 1 ,  ' DEPT.  ' )  ; 
drawsquare  (286,  130,  366,  160,  -false)  ; 
drawtext (290, 140, 1, 'WASTE  WATER' ) ; 
drawtext (290, 150, 1,  DEFT. ' ) ; 
drawsquare  (460,  130,  540,  160,  -false)  ; 
drawtext (465, 140, 1,  BIO-ASSAY ' ) ; 
drawtext (465, 150, 1, 'DEPT. ' ) ; 
drawl ine (285, 75, 145, 72) ; 
drawl ine (290,80, 140, 130) ; 
drawl ine<323, 90, 323, 130) ; 
d  r aw  1 i  ne ( 36 1 , 80 , 500 , 1 30 ) ; 
savescreen  <  '  -f  ig3  '  )  ; 
if  prt-flag  then   hardcopy  ( -false,  6)  ; 

c learscreen; 
drawborder   ; 
gotoxy (35,2) ; 
write(  FILINS  CABINET'); 
drawsquare  (35,  30,  110,40,  -false)  ; 
drawtext (40,34, 1,  ASSISTANCE ' ) ; 
drawsquare  ( 130,  30,  205,  40,  -false)  ; 
drawtext (145,34, 1,  RETURN' ) ; 


a-: 


drawsquare (250, 60, 400, 180, false! ; 
drawsquare  (260,  70,  390,  1 15,  -false)  ; 
drawtest <285,92,2, 'TEXT ' ) ; 
drawsquare (260,  125,390,  170, -false)  ; 
drawtext (285, 145,2, 'FORMS' ) ; 
savescreen  <  '  -f  ig4  '  )  ; 
prt-f  lag:  =true; 
i-f  prt-f  lag  then  hardcopy  (-f  alse,  6)  ; 

c learscreen; 

drawbarder   ; 

gotoxy (35, 2) ; 

write ('FILE  DISPLAY  SCREEN'); 

drawsquare  (35,30,  1 10,  40,  -false)  ; 

drawtext (40,34, 1,  ASSISTANCE' ) ; 

drawsquare (130, 30, 205, 40,  -false)  ; 

drawtext (145,34, 1,  RETURN  > ; 

drawsquare  (255,  30,  330,  40,  -false)  ; 

drawtext  (285,34,  1,  NEW); 

savescreen  (  '  -f  ig5  '  )  ; 

i-f  prt-f  lag  then  hardcopy  ( -false,  6)  ; 

c learscreen  ; 
drawborder   ; 
gotaxy (30, 2) ; 

write (DATA  ENTITY  SCREEN'); 
drawsquare  (35,  30,  110,  40,  -false)  ; 
drawtext (40,34, 1, 'ASSISTANCE' ) ; 
drawsquare  ( 160,  30,  235,  40,  -false)  ; 
drawtext (165,34, 1, 'RETURN  ) ; 
drawsquare  (285,  30,  360,  40,  -false)  ; 
drawtext (290,34, 1, 'ATTRIBUTES' ) ; 
drawsquare  (410,  30,  510,  40,  -false)  ; 
drawtext (415,34, 1, 'RETURN  TO  TOP'); 
drawsquare  (35,  50,  605,  180,  -false)  ; 
drawsquare  (560,  30,  635,  40,  -false)  ; 
drawtext (565,34, 1 ,  EDIT ' ) ; 
drawsquare  (220,  185,  295,  195,  -false)  ; 
drawtext (230, 190, 1,  SAVE' ) ; 
drawsquare  (345,  185,  420,  195,  -false!  ; 
drawtext (355, 190, 1, 'DELETE' ) ; 
savescreen  (  '  -f  ig6  )  ; 

i-f  prt-flag  then  hardcopy  < -false,  6)  ; 
p  r  t  -f  1  ag :  =-f  a  1  se ; 

c learscreen; 
drawborder   ; 
gotoxy (30, 2) ; 
writei  ATTRIBUTES ' ) ; 


A-6 


drawsquare (35,  30,  110,  40,  -false)  ; 

drawtext (40,34, 1 ,  'ASSISTANCE  )  ; 

d  rawsquare  ( 1 60 ,  30 ,  235 ,  40 ,  -fa  1  se )  ; 

drawtext ( 165,34, 1, 'RETURN  ) ; 

drawsquare (200, 50, 400,  150, -false)  ; 

drawtext (215,55,  1,  'DECISION'  >  ; 

drawl ine (200, 65, 400, 65)  ; 

drawtsKt (215,75, 1, 'COMMENT'); 

d  raw  1  i  ne  ( 200 ,  85 ,  400 ,  85 )  ; 

drawtext (215,95, 1, 'ADMINISTRATIVE  ACTION' ) : 

d  r aw 1 i  ne ( 200 , 105, 400 , 105) ; 

drawtext (215, 115,  1,  '  EENERAL  INFORMATION  ) ; 

drawl ine (200, 125,400, 125) ; 

drawtext (215, 135, 1,  RESPONSE  TIME  > j 

savescreen  (  -f  ig6a  '  )  ; 

c learscreen; 

drawborder   ; 

gotoxy (35, 2)  ; 

write ( 'PERSONNEL  SCREEN'); 

drawsquare  (35,  30,  110,  40,  -false)  ; 

drawtext (40,34, 1, 'ASSISTANCE' ) ; 

drawsquare  ( 160,  30,  235,  40,  -false)  ; 

drawtext (170,34, 1,  RETURN  ) ; 

drawsquare  (285,  30,  360,  40,  -false)  ; 

drawtext (295,34, 1, 'GROUP' ) ; 

drawsquare (410, 30, 485, 40, true) ; 

setcolorb lack ; 

drawtext (420,34, 1,  RANDOM  ) ; 

setcolorwh  i  te; 

drawsquare  (535,  30,  610,  40,  -false)  ; 

drawtext  (545,34,  1,  'SEND'  )  -, 

setaspect ( 1 ) ; 

drawc  i  rcledirec  t  (320,  70,  25,  -false)  ; 

drawtext (306,70, 1, 'SMITH'); 

d rawci  re  ledi  rect  ( 170,  1 10,  25,  -false)  ; 
drawtext (155, 110, 1,  JONES' ) ; 

d  r awe  i  r c  1  ed  i  rec  t  ( 490 ,  1 1 0 ,  25 ,  -f  a  1  se )  ; 
drawtext (470, 110, 1, ' MARLEY ' ) ; 

drawc  ire  ledi  rect  ( 100,  170,  25,  -false)  ; 
drawtext (BO, 170, 1,  HANKLEY  > ; 

drawc ire ledi rect (220, 170, 25, false) ; 
drawtext (200, 170, 1 ,  TIN6LEY ' ) ; 

drawc  i  re  ledi  rect  (560,  170,  25,  -faise)  ; 


drawtext (540, 170, 1 , ' BASIL ' > ; 

drawl ine (300, 75, 195, 105) ;  {smith  to  Janes; 
drawl ine (340, 75, 466, 105) ;  CSmith  to  Marly) 
drawl  ine  ( 147,  116,  99,  160)  ;  CJones  to  Hankleyj- 
drawl  ine  ( 182,  1 19,  222,  15S)  ;  {Jones  to  Tingley)- 
drawline(490, 121,545, 162) ;  CMarley  to  Basil) 
prt-f  lag:  =true; 
i-f  prt-f  lag  then 

hardcopy  ( -false,  6)  ; 
prt-f  lag:  =  -f  alse; 
savescreen  (  '  -f  ig7a  '  )  ; 


c  iearscreen; 

drawborder   ; 

gotoxy  (35,  2)  ; 

write! 'PERSONNEL  SCREEN  ) ; 

drawsquare (35,  30,  1 10,  40,  -false)  ; 

drawtext (40,34, 1,  ASSISTANCE  ) ; 

drawsquare  ( 160,  30,  235,  40,  -false)  ; 

drawtext (170,34, 1, 'RETURN' ) ; 

drawsquare  (285,  30,  360,  40,  -false)  ; 

drawtext (295,34, 1, ' BRQUP  ) ; 

drawsquare (410, 30, 485, 40, TRUE) ; 

setco lor black; 

drawtext (420,34, 1,  RANDOM); 

setcolorwhite; 

drawsquare  (535,  30,  610,  40,  -false)  ; 

drawtext (545,34, 1, 'SEND' ) ; 

setaspect ( 1 ) ; 

drawcircledirect  (320,  70,  25,  -false)  ; 

drawtext (306, 70, 1, ' AUTREY ' ) ; 

drawcircledirect  (170,  1 10,25,  -false)  ; 
drawtext ( 155, 110, 1 ,  BRITTGN ' ) ; 

d  r  awe  i  i-c  1  ed  i  rec  t  ( 490 ,  1  1 0 ,  25 ,  false;  ; 
drawtext (470, 110, 1 ,  BROWNER ' ) ; 

d  r  awe  i  re  1  ed  i  t~ec  t  ( 1 00 ,  170,  25, -false)  ; 
drawtext (80, 170, 1,  CAHAN ' > ; 

drawcircledirect  (220,  170,  25,  -false)  ; 
drawtext (200, 170, 1,  CHEE  ) ; 

drawcircledirect  (560,  170,  25,  -false)  ; 
drawtext (540, 170, 1 ,  CIPRIANI ' ) ; 
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drawl ine (300, 75, 195, 105) ;  Csmith  to  Janes) 
drawl ine(340, 75, 466, 105) ;  CSmith  to  I1arly> 
drawl ine (147, 116, 99, 160) ;  (Jones  to  Hank  ley} 
drawline(182, 119,222, 158) ;  CJones  to  Tingley} 
drawl  ine  (490,  121 ,  545,  162)  ;  -CMarley  to  Basil; 
i -f  prtflag  then   hardcopy  (  false,  6  )  ; 
savescreen ( ' f ig7b ' ) ; 

clea rsc  reen ; 

drawborder   ; 

gotoxy (35,2)  ; 

write ( ' PERSONNEL  SCREEN ' ) ; 

drawsguare  (35,  30,  110,  40,  -false)  ; 

drawtext (40,34, 1, 'ASSISTANCE' ) ; 

drawsguare ( 160, 30, 235, 40, false) ; 

drawtext (170,34, 1, 'RETURN'); 

drawsguare (285, 30, 360, 40, false)  ; 

drawtext (295,34, 1, ' SRQUP ' ) ; 

drawsguare (410, 30, 485, 40, true) ; 

set col orb  lack; 

drawtext (420,34, 1, 'RANDOM' ) ; 

setcolorwhi te; 

d  rawsguare  ( 535 ,  30 ,610,  40 , -false); 

drawtext (545,34, 1,  SEND  ) ; 

setaspect ( 1 ) ; 

drawcirc  ledirect  (320,  70,  25,  -false)  ; 

drawtext (306, 70, 1 ,  *  CRAIG ' ) ; 

drawcirc  ledirect  (170,  1 10,  25,  -false)  ; 
drawtext (155, 110, 1, 'DAILEY ' ) ; 

drawcirc  ledirect  (490,  1 10,  25,  -false)  ; 
drawtext (470, 110, 1,  FREDERICK') ; 

drawc l re ledi  rect ( 100, 170, 25, false) ; 
drawtext (80, 170, 1, 'BREC0' ) ; 

drawc ire ledi rect (220, 170, 25, false; ; 
drawtext (200, 170, 1 , 'HARDACRE ' ) ; 

drawc ire ledi rect (560, 170, 25, false) ; 
drawtext (540, 170, 1, 'HARMON' ) ; 

drawl  ine  (300,  75,  195,  105)  ;  -Csmith  to  Jones; 
drawl  ine  (340,  75,  4fa6,  105)  ;  -CSmith  to  Marly} 
drawl  ine  ( 147,  1 16,  99,  160)  ;  -CJones  to  Hankley} 
drawl inei 182, 1 19, 222, 158) ;  CJones  to  Tingley) 
drawline(490, 121,545, 162) ;  CMarley  to  Basil} 


i+  prt-flag  then   hardcopy  (-false,  o)  ; 
savescreen  (  '  -f  ig7c  )  ; 

c learscreen; 

drawborder   ; 

g  o  t  o  x  y ( 35 , 2 )  ; 

write!  PERSONNEL  SCREEN'); 

drawsquare  (35,  30,  110,  40,  -false)  ; 

drawtext (40,34, 1, 'ASSISTANCE ' ) ; 

drawsquare  ( 160,  30,  235,  40,  -false)  ; 

drawtext (170,34, 1, 'RETURN  ) ; 

drawsquare  (285,  30,  360,  40,  -false)  ; 

drawtext  (295,34,  1,  BROUP  '  )  -, 

drawsquare (410, 30, 485, 40, true) ; 

setcolorb lack; 

drawtext (420,34, 1,  RANDOM' ) ; 

setcolorwh  i  te; 

drawsquare  (535,  30,  610,  40,  -false)  ; 

drawtext (545,34, 1,  SEND'); 

setaspect ( 1 ) ; 

d r awe i re ledirect  (320,  70,  25,  -false)  ; 

drawtext (306,70, 1,  HIRTLER' ) ; 

d  r  awe  i  r  c  1  ed  i  rec  t  ( 170,  110,  25 ,  -false.'  ; 
drawtext (155, 110, 1, ' HOANS ' ) ; 

drawc  ire  ledirect  (490,  1 10,  25,  -false  )  ; 
drawtext (470, 110, 1, ' HORNEY ' ) ; 

drawc  ir^  led  i  rect  ( 100,  170,  25,  -false)  ; 
drawtext (80, 170, 1, ' HUCHRQ ' ) ; 

drawc  ire  ledirect  (220,  170,  25,  -false)  ; 
drawtext (200, 170, 1, ' INGRAM ' > ; 

drawc  i  re  led  irect  (560*  170,  25,  -false)  ; 
drawtext (540, 170, 1 , ' INKLEY ' ) ; 

drawl ine (300, 75, 195, 105) ;  {smith  to  Janes; 
drawl ine (340, 75, 466, 105) ;  [Smith  to  Marlyj 
drawl ine ( 147, 1 16, 99, 160) ;  (Jones  to  Hank  ley > 
drawl ine ( 182, 1 19,222, 158) ;  (Jones  to  Tingleyj 
drawl ine(490, 121 , 545, 162) ;  CMarley  to  BasilJ 
i  +  prt-flag  then   hardcopy  (  false,  6)  ; 
savescreen  (  '  -f  ig7d  '  )  ; 

c learscreen; 
drawborder   ; 
gotoxy (35,  2)  ; 
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writeC  PERSONNEL  SCREEN  '  i  ; 

draws qua re  ^35, 30, i 10,  40, false)  ; 

drawtest (40,34, 1, 'ASSISTANCE' ) ; 

draws  qua  re  (  160,  30,  235,  40,  -false)  ; 

drawtest (170,34, 1, 'RETURN' > ; 

drawsquare  <285,  30,  360,  40,  -false)  ; 

drawtest (295,34, 1, ' BROUP ' ) ; 

drawsquare (410, 30, 465, 40, true)  ; 

set col orb  lack; 

drawtest (420,34, 1, ' RANDOM  ) ; 

setcolorwhi  te; 

drawsquare  (535,  30,  610,  40,  -false)  ; 

drawtest (545,34, 1 , 'SEND' ) ; 

setaspec t ( 1 ) ; 

drawcirc  ledi  rect  (320,  70,  25,  -false)  ; 

drawtest (306, 70, 1 ,  KLIEN  ) ; 

drawc  i  re  ledi  rect  (170,  110,  25,  -false)  ; 
drawtest (155, 110, 1, ' M0R6AN ' ) ; 

drawc ire ledi rect (490, 110, 25, false) ; 
drawtest (470, 110, 1, ' NEMR  ) ; 

drawcirc  ledi  rect  ( 100,  170,  25,  -false)  ; 
drawtest (80, 170, 1,  ' OTTE  )  ; 

drawcirc  ledi  rect  (220,  170,  25,  -false)  : 
drawtest (200, 170, 1,  PEELER' ) ; 

drawc  ire  ledi  rect  (560,  170,  25,  -false)  ; 
drawtest (540, 170, 1, ' RANFT ' ) ; 

drawl ine (300, 75, 195, 105) ;  [smith  to  Jones} 
drawl  ine  (340,  75,  466,  105)  ;  -[Smith  to  Marly} 
drawl ine(147, 116,99, 160) ;  (Jones  to  Hankley> 
drawl ine( 182, 119,222, 158) ;  [Jones  to  Tingley; 
drawline(490,  121,545,  162)  ;  [Marley  to  Basil;- 
i-f  prt-flag  then   hardcopy  (  f  alse,  6)  ; 
savescreen  (  '  -f  ig7e  '  >  ; 

c learscreen; 
drawborder   ; 
gotosy (35,2) ; 

write(  PERSONNEL  SCREEN  > ; 
drawsquare  \35,  30,  1 10,  40,  -false)  ; 
drawtest (40,34, 1,  ASSISTANCE  ) ; 
drawsquare  ( 160,  30,  235,  40,  -false)  ; 
drawtest (170,34, 1, 'RETURN' ) ; 
drawsquare  (285,  30,  360,  40,  -false)  ; 


drawtext  (295,  34,  1,  '  SROUP  '  )  ; 

drawsquare (410, 30, 485, 40, true;  ; 

set col orb  lack ; 

drawtext (420,34, 1,  RANDOM  )  ; 

setcolorwh  i  te; 

drawsquare  (535,  30,  610,  40,  -false)  ; 

drawtext (545, 34, 1 , ' SEND ' ) ; 

setaspect ( 1 ) ; 

drawc  i  re  led  i  rect  (320,  70,  25,  -false)  ; 

drawtext (306, 70, 1 , ' SAAD ' ) ; 

drawcire  ledirect  (170,  110,  25,  -false)  ; 
drawtext ( 155, 110,1, ' SCHUETZ ' > ; 

drawc  i re  ledirect  (490,  1 10,  25,  -false)  ; 
drawtext  (470,  110,  1,  '  SHETTER  '  )  -, 

drawc  i  re  led  irect  ( 100,  170,  25,  -false)  ; 
drawtext  (80,  170,  1,  STEIN')  -, 

d  r awe  l  re  1  ed  i  rec  t  ( 220 ,  1 70 ,  25 ,  -f  a  1  se )  ; 
drawtext (200, 170, 1,  STRAWN ' ) ; 

drawcire  led  irect  (560,  170,  25,  -false;  ; 
drawtext (540, 170, 1,  STREET  ) ; 

drawl ine (300, 75, 195, 105) ;  -[smith  to  Jonesi- 
drawl ine (340, 75, 466, 105) ;  {Smith  to  Marly} 
drawline  ( 147,  116,  99,  160)  ;  -Clones  to  Hankley} 
drawl ine ( 182, 1 19, 222, 158) ;  {Jones  to  Tingieyj 
drawline(490, 121,545, 162) ;  -CMarley  to  Basil> 
i-f  prtflag  then   hardcopy  ( -f  alse,  6)  ; 
savescreen  (  '  -f  ig7-f  '  )  ; 

clearscreen; 
drawborder   ; 
gotoxy (35,2)  ; 

write! 'INCOMING  HAIL  SCREEN'); 
drawsquare  (35,  30,  110,  40,  -false)  ; 
drawtext (40,34, 1, 'ASSISTANCE' ) ; 
drawsquare  ( 160,  30,  235,  40,  -false)  ; 
drawtext (170,34, 1, 'RETURN' ) ; 
drawsquare  (285,  30,  360,  40,  -false)  ; 
drawtext (295,34, 1, 'SAVE  ) ; 
drawsquare  i410,  30,  485,  40,  -false;  ; 
drawtext (420,34, 1,  DISCARD' ) ; 
savescreen  (  '  -f  ig8  '  )  ; 


c l ea  rsc reen ; 

drawborder   ; 
gotaxy (35, 2)  ; 

write ('NEW  ME35AGE  SCREEN'); 
draws  qua  re  (35,  30,  110,  40,  -false)  ; 
drawtext (40,34, 1, 'ASSISTANCE ' ) ; 
drawsquare ( 160, 30, 235, 40, false) ; 
drawtext (170,34, 1, 'RETURN' > ; 
drawsguare  (285,  30,  360,  40,  -false)  ; 
drawtext (295,34, 1,  SAVE ' ) ; 
hardcopy  (-false,  6)  ; 
savescreen  (  '  -f  ig9  '  )  ; 


end;  -C  procedure  init   > 

procedure  wri  tel ink; 
begin 

assign (peop le-f  i  le,  peop le. dat ' ) ; 
rewrite  ^ peop let i le)  ; 
1  :=  I5 

■for  k:  =1  to  6  do 
beg  in 

-for  j:=l  to  6  do 
begin 

with  peopleCj,k3  do 
begin 

pname  :=  namesCU; 

l:=l+l; 

case  j  o-f 

ll 

begin 

linksCl J:=-l; 
1  inks £23 : =2; 
linksC33:=3; 
linksC43:=-9; 
end; 
2: 

beg  in 

links[13:=l; 
linksC23:=4; 
linksE33:=5; 
iink«C43s— 9j 
end; 


begin 

links[13:=l; 


1 inks£2 j : =6; 
linksC33:=-9; 
linksC43:=-9; 
end; 


begin 

link»Ci3s=25 

linksC23:=-9 
linksC3]:=-9 
linksC4D:=-9 
end; 


begin 

linksC13:=2; 
linksC23:=-9 
linksC33:=-9 
linksC4::=-9 
end; 
6: 

begin 

linksQ13:=3; 
linksC21:=-9; 
linksC33:=-9; 
linksC43:=-9; 
end; 
end;    [case; 
end;   -CwithJ 

writs  (peop  le-f  i  le,  peop  leC  j  ,  k  1 )  ; 
end;    C-for  j> 
end;  C  -for  k> 
close  (peop  le-f  i  le)  ; 
end;  {writelink} 


<C  M  A  I  N  > 

begin    -t    main     > 

ini  t; 

wri tel ink; 

■C  **  start  processing  **    > 


chars  :=  #32;  -Cclear  out  chars} 
repeat 

i-f  keypressed  then 
beg  in 

read ( kbd , chars) ; 

i-f  chars  =  #112  then  hardcopy.taise,  i) 
end; 
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until  chars  =  #11" 

leavegraphic; 

end- 


-c*c-,u-> 

program  cnem; 

■C*I  typede-f .  sys> 
C*I  grapn  ix . sys> 
■£*!  Kernei.sys) 


type 

registers= record 

ax,  ox,  ex,  d;<,  bp,  si  , d  i , as,  es,  t  lags:  integer; 
ena; 

type 

holder  =  stringtlj; 
line  »  stringC503; 
tnarn  =  stringL14j; 

type 

attributes  =  record 

muse, tex_-form, decision, comment , aamin , gen  in to 
boolean; 

response  :  integer; 
-fiiname  :  stringC14j; 
route  :  arrayCi..50J  o-f  -fnam; 
end; 

type 

peop  iein-fo=record 
pname: string C 143; 
iinks:array  CI.. 53  o-f  integer; 
ena; 


var 

v,  j  ,  1 ,  o-f -f  set ,  oldx,  oldy,  x,  y,  i  ,  j  j  ,  drawer,  savx  ,  savy ,  pptr ,  tmpy 

:  integer; 

aep  tchoice,  personchoice,  prev-f  ig  ,  +  ignum,  choice,  scaxe_x  ,  xx,  k 

:  integer  ; 

xi  ,  yl ,  x2,  y2,  pet,  oldect ,  ect ,  mov,  ct ,  top-f  ig,  start ,  stop:  intege 

draw-f  i  la,  pick -f  lag,  text-f  lag,  -form-f  lag,  skip-flag,quit-fiag 
:  boolean; 

asst-f  lag,  mai  If  lag  ,  control ,  ed  i  tdone,  per-f  lag,  pick,  ranat  lag  : 
boolean; 

print-flag,  -found,  mesgdone:  boolean; 

chars  :  char; 

chars2:  array  C  i  .  .  21    o-f  char; 


regs  :    registers; 

saveval  :  holder    ; 

•filein-fa  :  array  CI..  70]  of  attributes; 

bu-f  :  array  CI..  103  o-f  line; 

-f  i levar:  text; 

people-file:  -file  o-f  peoplein-fo; 

peopie  :  arrayC1..63  o-f  array  Ci..  103  o-f  peoplein-fo; 

parray:  array  CI..  103  o-f  integer; 


procedure  -figSioc;  -forwara; 
proceaure  -fig&loc;  -forward; 
procedure  -fig9ioc;  -forwara; 

<;   *+   turn  Mouse  cursor  o-f-f  **  > 

procedure  turno-f-f; 

begin 

regs. ax: =2; 

intr  <*33, regs) ; 
end; 


■C   +*   turn  Mouse  cursor  on   ** 

procedure  turnon  ; 
begin 

regs. ax  :=  1; 

intr (*33, regs) ; 
end; 


procedure  astl; 
begin 

turno-f-f; 

copyscreen; 

setcol orb  lack; 

drawsquare (35, 40, 250,  130, true)  ; 

setcolorwn  i  te; 

drawsquare  (35,  40,250,  130, -false)  ; 

drawtext ( 1 10, 45, 1 ,  ASSISTANCE  ) ; 

drawl ine (35, 50, 250,50) ; 

drawl ine (35, 120, 250, 120) ; 

drawtext (120, 125, 1, 'CLOSE  WINDOW 

turnon; 

ass  t  -flag:  =true; 
end ; 

procedure  ast2; 
beg  in 
repeat 


regs.ax  :=  3; 

intr ($33, regs) ; 

■C  move  variables  into  generic  x  and  y  coordinates  > 

K  :  =  regs.  cxj 

y  :=  regs.dx; 

ir  i(x>34)  and  <x<251))  and  <(y>120)  ana  <y<131))  then 
begin 

it  regs.bx=i  then 
begin 

turno-f  -f ; 
swap screen; 
asst-flag:  = -false; 
:< :  =0 ; 
turnon; 
end; 
end; 
until  (not  asst-flag); 

end; 

procedure  noresp  ixl, y 1 , x2, y2: integer) ; 
begin 

drawsquare(xl, yl, x2, y2, true) ; 

setcol orb  lack; 

drawtext<xl+6,  < <yl+y2)  div  2),1,'N0  RESPONSE  ) ; 

setcol orwhi  te; 
end; 

procedure  checkmark ( x, y : integer) ; 
begin 

drawl ine  <  x, y , x+3, y+5) ; 

drawl ine(x+3, y+5, x  +  10, y-S) ; 

p  ick: =true; 
end; 


procedure  edit; 
begin 

turno-f  f; 

drawsquare(56ij,30,  635,  40, true) ; 

setcol orb  lack; 

drawtext (565,34, 1, 'EDIT ' ) ; 

set col orwhi te; 

turnon; 

chars: =   '  ; 

ect:=l; 

control  :=  -false; 

gotoxy ( 14+ect , 16)  ; 
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wri  te  (  '  "'• '  )  ; 
repeat 

i-f  keypressed  then 
begin 

read (kbd, chars) ; 

i-f  chars=#27  then 
begin 

read  <kbd, chars) ; 
control  :=  true; 

case  chars  of 

JK':  -Cle-ft  arrow) 

i-f  ect  <>  1  then  ect:=ect— 1; 

'M't  bright  arrow) 

i-f  ect  <  length  (bu-fC  1 3 )  then  ect  :=ect>i; 

'3':  {delete} 
begin 

delete  (bu-f  CI  3,  ect,  1)  ; 
gotoxy  < 15, 15)  ; 
write  < ' 

); 

gotoxy ( 15, 15) ; 
write(bu-f  CI])  5 
end; 
D': 

chars: =#1 ; 
end;        -Cease} 

i-f  (chars=  M)  or  (chars=  K  )  then 
begin 

gotoxy  < 15, 16)  ; 
write ( ' 

); 

gotoxy ( 14+ect, 16) ; 
wri  te  <  '  ■  - '  )  ; 
end; 
end; 


i-f  (not  control)  then 
begin 

i-f  <<chars>#64)  and  <chars<#91>>  or 
( <chars>#96)  and  <chars<#123) )  or 
<<chars>#47>  and  <chars<#5B>>   or  <chars=#32) 
then 
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begin 

i-f  (set  <  50)  then 
begin 

insert  (chars,  bu-f  C  1  3  ,  ect )  ; 

ec  t :  =ec  t  + 1 ; 

gotoxy ( 15, 15) ; 

wri  te  (bu-f  C  1 1 )  ; 

gotoxy  v 15, 16) ; 

write  < ' 

); 

gotoxy ( 14+ec t , 16) ; 
wri  te  (  "  '■ '  )  ; 
gotoxy(65, 15) ; 
wri  te  <  ' ) 5 

delay (10) ; 
end 
else 
beg  in 

chars: = '  ' ; 
ect: =49; 
end; 
end; 
end; 
control  :=  -false; 
end; 

reg  s .  a  x  :  —    3 ; 

intr  <*33, regs) ; 

■C  move  variables  into  generic  x  and  y  coordinates  > 

x  : =  regs. ex; 

y  :=  regs.dx; 

i-f  (  (y>184)  and  <y<196)  )  and  (  (x>219>  and  (x-^296)  )     and 
(regs.bx=i)  then 
begin 

chars: =#1 ; 
ect:=i; 
end; 
until  chars=#l; 
end; 

procedure  drawstu-f  -f ; 
beg  in 

i-f  text-flag  then 

drawer  ; =  0 
else 

drawer  :=  5; 
■for  k:  =  1  to  5  do 
beg  in 


with  +ileintoCk+a-tfset+drawer]  cio 
begin 

i-f  inuse  then 
begin 

turno-f-f ; 

drawsquare( (20+(k-l ) *100) +55, 65, (lGOMk- 
1 )  *100>  ,  70,  -false;  ; 

drawsquarei (20+ (k— I i *100) , 70,  ( 100+  tk- 
D^lOO)  ,  100,  -false)  ; 

draw  text  <  (20+  (  k-1 )  ♦100)  +20,  115,  1 ,  -f  i  lname;  : 
turn on; 
end; 
end;     -£with> 
end;      C-fori 

end;     Cdrawstu-f -f  > 

procedure  savemesg; 

begin 

turno-f-f; 

copyscreen; 

set co lord  lack; 

d  rawsquare ( 200 , 30 , 400 , 1 50 , t  rue  > ; 

setcolorwh  i  te; 

drawsquare (200, 30,400, 150, false) ; 

drawtext (210,40, 1,  ENTER  FILE  NAME  AND  '  > ; 

drawtext (210,50, 1, 'SAVE  BY  DEPRESSING  F10); 

gotoxy  (30,  16)  ; 

wr  i  te  (  '  '"- '  )  ; 

delete(bu-fC63,  1,80)  ; 

ec  t :  =  1 ; 

repeat 

i-f  keypressed  then 
beg  in 

read (kbd, chars) ; 

i-f  chars=#27  then 
begin 

read (kbd , chars) ; 
control  :=  true; 

case  chars  o-f 

'KJ:  -Cle-ft  arrow) 

i-f  ect  <>  1  then  ect:=ect-l; 

'M*:  iright  arrow) 

i-f  ect  <  length  (bu-fC6])  then  ect  :=ect+l; 
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■S'i  idelete} 
begin 

delete(bu+C63,ect, 1) ; 
gotoxy (30, 15) ; 
wri te  < ' 

>; 

gotoxy (30, 15) ; 
write(bu+C63 )  ; 
end; 
D': 

chars: =#1 ; 
end;   {case) 

i-f  (chars=  M  )  or  (chars=  K  )  then 
begin 

gotoxy  (30,  16)  ; 
wri  te ( 

)  ; 
gotoxy (29+ect, 16) ; 
wri  te  <  ' " ' '  )  ; 
end; 
end; 


i-f  (not  control)  tht 

E?n 

begin 

i-f  (  <chars>#64) 

and 

( (chars>#96) 

and 

( (chars>#47) 

and 

then 

begin 

i-f  (chars 

O  # 

begin 

<chars<#91) )  or 

(chars<#123) )  or 

(chars<#58) )   or  (chars=#32j 


#61 >  and  (ect  <  10)  then 


insert (chars, but E63 , ecz >  ; 
ect: — ect+i ; 
gotoxy (30, 15)  ; 
wri  te  (bu-f  L6D  )  ; 
gotoxy (30, 16) ; 
wri  te ( ' 

gotoxy (29+ect, 16)  ; 
wri  te ( '  ■  ' > ; 
end; 


end; 
end; 
control : =+alse; 


until  chars  =  #1; 
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if  fignum=9  then 

assign  i f  i  levar,  mail  ) 
else 

assign(filevar,buf[63)  ; 
rewr i  te  ( f  i levar) ; 
i-f  -fignum=9  then 

begin 

wri  te  ( -f  i levar ,  buf  C33) 

end 
else 

wr ite (f i  levar, buf  [5  3  )  ; 
close  <f  i  levar)  ; 
found:  =-false; 
i-f  formflag  then 

k:=6 
else 

k:=l; 

repeat 

if  (not  fileinfoCk] . inuse)  then 
begin 
with  fileinfoCkD  do 
begin 

inuse  :=  true; 
if  k<6  then 

tex_form  :=  true 
else 

tex_form  :=  false; 
decision  :=  false; 
comment  :=  false; 
admin  :=  false; 
geninfo  :=  false; 
response  :=  — i; 
found  :=  true; 
f i Iname: =buf C63; 
end; 
end 
else 
beg  in 

k:=k+l; 

if  <k  >  10)  or  <(k>5)  and  textflag)  then 
begin 

gotoxy  < 15, 20)  ; 

write< 'FILE  CABINET  IS  FULL'); 
delay (300)  ; 
end; 
end ; 
until  found; 


swapscreen; 
end; 

procedure  get-f  i le; 
beg  in 

with  f i lein+otchoice!]  do 
begin 

assign  <  +  i levar, f i Iname) ; 
reset  ( -f  i  levar)  ; 
read  In (f i levar, buf £13) ; 
gatoxy ( 15, 15) ; 
write(bu-f  CI  3  >  ; 
close  <-f  i  levar)  ; 
end;   -C  with  > 
end;    -C   get-f  i  le   } 

procedure  readl ink ; 
begin 

assign  (people-f  i  le,  'people,  dat  '  )  ; 
reset (peap le+i le) ; 
1  :=  1; 

■for  k:=l  to  6  do 
begin 

■far    j :  =1  to  A  da 

read (people+i le, peopleC  j, k3 > ; 
end;  ■£  for  k> 
c lose (peop le-fi le) ; 

end; 

procedure  select person; 
begin 

■f  i  lein-foC  choice  3  .  routeEpptrH  :  = 
peop  i eCpersoncho ice, deptcho ice 3 . pname; 

pptr:=pptr-*-l ; 
end; 

procedure  grouperson ; 
beg  in 

start: =personchoice; 

stop  :=  personchoice; 

f  i  lein-faCchoice]  .  route Cpptr  1  :  =peop  ieCstart,  deptchoice  j  .  p 

name; 

pptr: =pptr+l ; 

case  personchoice  of 
1: 

begin 


start : =2; 
stop: =6; 
end; 

begin 

start: =4; 

stop:=  5; 
end; 
-3 : 

begin 

start: =6; 

stop: =6; 
end; 
end;   (case) 

tor  k:=start  to  stop  do 
begin 
■filein  +  oCchoice].  routeCpptr  1 :  =peopleCk,  deptcnoicei.  pname; 
pptr:=pptr+l ; 

parrayCpct] : =k; 
pet: =pct+l ; 

case  k  o-f 
1: 

checkmark (275, 70) ; 
2; 

checkmark  i 125, 110); 
3: 

checkmark (445, 110)  ; 
4: 

checkmark (55, 170) ; 
5: 

checkmark  < 175, 170)  ; 
6: 

checkmark (515, 170) ; 
end;  Cease) 

end;  £-far> 
end;  Cgrouperson} 

procedure  -figiloc; 
begin 

i-f  mail -flag  then 
begin 

turno-f  -f ; 

drawsquare(440,60,515,80, true) ; 
set col orb  lack; 
drawtext (450,70, 1,  NEW  MAIL); 
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setcolorwhi te; 
turnon; 
end; 

i-f  (y  >  29)  and  (y  <  40) 
then 
begin 

i-f  (x  >  34)  and  (x  <  111)        -C  assistance  i 
then 
begin 

astl ; 

drawtext (45,55, 1,  PLACING  THE  CURSOR  ON 
EITHER  OF' ) ; 

drawtext (45,65, 1,  ORGANIZATIONS 
(MANUFACTQRING  OR'); 

drawtext (45,75, 1,  RESEARCH)  AND  CLICKING 
THE  LEFT ' ) ; 

drawtext (45,85, 1,  MOUSE  BUTTON  WILL  ALLOw 
ACCESS  TO' ) ; 

drawtext (45,95, 1,  THE  INDIVIDUAL 
DEPARTMENTS' ) ; 
ast2; 
end; 

i-f  (x  >  129)  and  (x  <  206)       £  quit  J 
then 
begin 

quit-flag  :=  true; 
end; 
end; 

if  ( (y>59)  and  (y<81>)  and  ((x>439)  and  (x<516)>  ana 
mail-flag  then 
beg  in 

-f  ignum:  =9; 

clearscreen; 

turno-f-f ; 

loadscreen  (  '  -f  igS  '  )  ; 

turnon; 

assign  (-filevar,-filein-foC70].-fi  lname)  ; 

reset  (-f  i  levar)  ; 

read  In  ( -f  i  levar ,  bu-f  C31 )  ; 

gotoxy ( 15, 15)  ; 

wri te(but C3  3)  ; 

close(-f  i  levar)  ; 
end; 


i-f  (y  5 
then 


99)  and  (y  <  111) 


A-26 


beg  in 

i-f  (x  >  99)  and  ( :<  <  181) 
then 
begin 

-f  ignum  :=  2; 
top-f  ig:  =t  ignum; 
turnof-f; 
c 1 earsc reen ; 
loadscreen ( ' -f ig2 ' ) ; 
turnon; 
end; 
i-f  (x  >  469)  and  (x  <       551) 
then 
begin 

-fignum  :=  3; 
top-f  ig:  =-f  ignum; 
turno-f-f  ; 
c 1 earsc reen; 
loadscreen  <  '  -f  ig-3  '  )  ; 
turnon; 
end; 
end; 
end; 

procedure  -fig21oc; 
begin 

it  (y  >  29)  and  (y  <.:  40) 
then 
begin 

i-f  (:<  >  34)  and  (x  <  111)        -C  assistance  } 
then 
begin 

ast  1 ; 

drawtext (45,55, 1 ,  PLACING  THE  CURSOR  ON  ANY 

OF  THE  ' ) ; 

drawtext (45,65, 1,  DEPARTMENTS  AND  CLICKING 

THE  LEFT ' ) ; 

drawtext (45, 75, 1,  MOUSE  BUTTON  WILL  CAUSE 

THE  ' ) ; 

drawtext (45,85, 1,  A550CIATED  DATABASE  TO 

THE  SCREEN.  ); 

drawtext (45,95, 1,  CLICKING  THE  RIGHT  MOUSE 

BUTTON ' ) ; 

drawtext (45, 105, i,  CAUSES  THE  PERSONNEL 

CHART  TO ' ) ; 

drawtext (45, 115,1,  APPEAR.  )j 

ast2; 

end; 


i  -f  ( x  >  1 29  >  and  <  x  <  206  )      ■£  return  > 
then 
begin 

-fignum  :=  1; 
turnot +; 
c learscreen; 
1  oadsc  reen  (  *  -f  ig 1  '  )  ; 
turnan; 
end; 
end; 
i  +  (y  >  129)  and  (  y  <  161) 
then 
begin 

i-f  <<k  >  99)  and  (x  <  181 ))   or 
((x  >  285)  and  (x  <  367))  or 
(<K  >  459)  and  (x  <  541)) 
then 
beg  in 

i-f  <  (x  >  99)  and  (x  <  181)  )  then 
begin 

i-f  tignum  =2  then 

o-f-fset  :=  0 
else 

o-f-fset  :=  30; 
end; 
i-f  (  < x  >  285 )  and  ( x  <  367 )  )  then 
begin 

if  -fignum  =  2  then 

o-ffset  :=  10 
else 

o-f-fset  :=  40; 
end; 
i-f  <<x  >  459)  and  (x  <  541  )  )  then 
begin 

i-f  -fignum  =  2  then 

o-f-fset  :=  20 
else 

o-f-fset  :=  50; 
end; 

prev-f  ig  :=  -fignum; 
turno-f -f ; 
c learscreen; 
it     (not  per -flag)  then 
begin 

■fignum  :=  4; 
1  oadsc  reen  (  -f  ig4  '  )  ; 
end 
else 


beg  in 

case  attset  o-f 
0: 

loadscreen  (  -f  ig7a  ): 
10: 

loadscreen  i  -fig  7b 
20: 

loadscreen  C  -fig  7c 
30: 

loadscreen (  fig 7d  ): 
40: 

1 oadsc  reen  (  '  f i  g  7e  i  : 
50: 

loadscreen  (  '  -f  ig7-f  *  ) 
end;  (case) 
i-f  rand-flag  then 
begin 

turno-f  t ; 
set col orb  lack; 

d  r awsqua  re  >.  2S5 ,  30 ,  360 ,  40  ,  t  rue  /  ; 
setcolorwhi  te; 

drawsquare  (265,  30,  360,  40,  -false/  ; 
drawtext (295,34, 1,  GROUP ' ) ; 
drawsquare (410, 30, 465, 40, true; ; 
setcolorb lack ; 

drawtext (420,34, 1,  RANDOM  > ; 
setcolorwhi te; 
turnon; 
end 
else 
begin 

turno-f -f; 

drawsquare (2S5, 30, 360, 40, true) ; 
set col orb  lack; 
drawtext (295,34, 1,  GROUP'); 
drawsquare (410, 30, 485, 40, true) ; 
setcolorwhi te; 

drawsquare  (410,30,  485,  40,  -false)  ; 
drawtext (420,34, 1,  RANDOM  ) ; 
turnon; 
end; 

pct:=l; 

-for  jj:=l  to  6  do 

parrayC  j  j 1 : =-99; 
-fignum  :=  7; 
per-flag  :=  false; 
end; 
turnon ; 


end ; 

end; 
end; 


procedure  -fig31oc; 

begin 

end; 

procedure  -fig41oc; 
begin 

i-f  (y  >  29)  and  (y  <  40) 
then 
beg  in 

i-f  (x  >  34)  and  (x  <  111)        £  assistance  > 
then 
begin 

astl; 

drawtext (45,55, 1,  PLACING  THE  CURSOR  ON 

EITHER  ' ) ; 

drawtext (45,65,  1,  OF  FILE  DRAWERS  AND 

CLICKING' ) ; 

drawtext  (45,  75,  i,  THE  MOUSE  BUTTON  WIi_L 

CAUSE   ' ) ; 

drawtext (45,85, i,  DRAWER  TO  OFEN  ); 

ast2; 

end; 
if  (x  >  129)  and  (x  <  206)      -C  return  J- 
then 
beg  in 

■fignum  :=  prev-fig; 
turna-f  -f ; 
clearscreen; 
str  (-fignum,  saveval )  ; 
1  oadsc  reen  ('-fig  +saveva  1 )  ; 
turn on; 
end; 
end; 

i-f  (x  >  259)  and  (x  <  391) 
then 
beg  in 

i-f  (y  >  69)  and  (y  <  116) 
then 
begin 

-fignum  :=  5; 
text-flag  :=  true; 
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torm+lag  :=  -false; 
draw-file  :=true; 
end; 
i-f  (y  >  124)  and  (y  <  171) 
then 
begin 

-fignum  :=  5; 
text-f  lag  :  =  -false; 
-form-flag  :  =  true; 
draw-file  :=  true; 
end; 
i-f  draw-file  then 
begin 

turno-f-f ; 
c learscreen ; 
loadscreen  (  -f  ig5  )  ; 
drawstut  -f ; 
turnon; 
end; 
end; 


end; 


procedure  -f  ig51oc; 

begin 

i-f  (y  >  29)  and  (y  <  40) 
then 
begin 

i-f  (x  >  -34)  and  <x  <  111)        C  assistance  > 
then 
begin 

astl ; 

drawtext (45,55, 1,  "PLACING  THE  CURSOR  ON  THE 

NEW ' > ; 

drawtext (45,65, 1,  BUTTON  AND  CLICKING  THE 

LEFT' > ; 

drawtext (45,75,1,  MOUSE  BUTTON  WILL  ALLOW 

THE ' > ; 

drawtext (45,85, 1, 'USER  TO  CREATE  A  NEW 

FILE' > ; 

ast2; 

end; 

i-f     ( x     >     129)     and     <:<    <    206 )  £     return     > 

then 
beg  in 

-fignum    :=    4; 
turno+-f  ; 
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clear-screen; 
load screen  i  ' f ig4  ) ; 
turnon; 
end; 

if  \x  >  254)  and  ( :<  <  33 i> 
then 
begin 

-fignum  :=  10; 
turnof f ; 
clearscreen; 
load  screen  (  '  -f  ig9  '  )  ; 
■f  ig91oc; 
end; 


end; 


if  (y  >  69)  and  (y<101)  then 
begin 

for  k: =1  to  5  do 
begin 

if  ((;<  >(19+(k-i)*100) )  and  ( :<  <  <10i-t-\k- 
1>*100> )  )  then 

begin 

choice  : =  k+of f set+drawer; 
turnof f; 
clearscreen; 
loadscreen (  ' f  ig6  ) ; 
pptr  :=  1; 
getf  i le; 
turnon; 
fignum  :=  6; 
end; 
end ;  Cf or> 
end; 

end; 


procedure  f  ig61oc; 

begin 

if  <y  >  29)  and  <y  <  40) 
then 
beg  in 

if  <x  >  34)  and  <x  <  ill)        <  assistance 
then 
beg  in 
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astl ; 
ast2; 
end; 
i f  (x  >  159)  and  (x  <  236)       C  return  > 
then 
beg  in 

turno-f -f ; 
clearscreen; 
loadscreen ( '  -f  ig5 ' > ; 
drawstuf -f ; 
-fignum  :=  5; 
turnon  ; 
end; 
if  (:<  >  284)  and  (x  <  361)         C  attributes  J 
then 
begin 

turno-f -f; 
clear screen; 
1 oadsc  reen (  '  -f  i  g6a ' > ; 
1 ignum: =S; 
turnon; 
end; 
i-f  (x  >  409)  and  <x  <  511)  then    {return  to  top  i 
begin 

■fignum:  =  top+  ig; 
turno-f -f; 
c learscreen ; 
str  (-fignum,  saveval )  ; 
loadscreen  < ' f ig  +savevai ) ; 
turnon; 
end; 
i-f  (x  >  559)  and  (x  <  631)  then    -Cedit; 
begin 
get-f  i  le; 
edit; 
end; 
end; 


i-f  (<y>184)  and  <y<196))  and  <<x>219)  and  (x<296>>  then 
begin 

with  -f  i  lein-faCchoicel  do 
begin 

assign  ( -f  i  levar,  -f  i  Iname;  ; 
rewrite ( f i levar)  ; 
wri  te<-f  i  levar,  bu-f  C13)  ; 
close  C-f  i  levar)  ; 
end; 
end; 


i-f  ( <y>184)  and  (y<196)  )  and  (  <x>344>  and  (x<421)>  men 
beg  in 

with  -filein  +  oLchoice]  do 
begin 

muse:  =-false; 
decision  :  ■  -false; 
comment  :=  -false; 
admin  :=  -false; 
genin-fo  :  =  -false; 
response  :=  —1; 
assign  <-f  i  levar,  -f  i  lname)  ; 
erase (f i levar ) ; 
close<-f  i  levar)  ; 
delete  (-fi  lname,  1 ,  14)  ; 
end; 
gotoxy (15, 15) ; 
wri te( ' 

">; 

end; 


end; 

procedure  +  ig6aloc 

5 

begin 

i-f  ( y  >  29 )  and  ( y  <  40 ) 
then 
beg  in 

i-f  (;<  >  34)  and  <x  <  111 )        C  assistance 
then 
begin 
ast  1 ; 
ast2; 
end; 
i-f  ( x  >  159 )  and  ( x  <  236 )      -C  return  > 
then 
beg  in 

turno-ff ; 
c 1 earsc  reen ; 
loadscreen ( ' + ig6 ' ) ; 
pptr  :=  1; 
get-f  i  le; 
turn on; 
-fignum  :=  6; 
end; 
end; 
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i-f  (x  >  199)  and  <  :<  <  400) 
then 
begin 

if  (y  >  49)  and  (y  <  65)   -£  decision  i 
then 
begin 

turnot-f  ; 

drawsquare  v200,  50,  400,  65,  true.'  ; 
setcolorb lack; 

drawtext (215,55, 1, 'DECISION ' ) ; 
setcolorwhi te; 

-f  i  lein-foCchaicel .  dec  ision  :=  true; 
turnon; 
end; 
i-f  (  y  >  64)  and  (y  <  85)    £  comment  ) 
then 
begin 
turno-f -f ; 

drawsquare (200, 65, 400,85, true) ; 
set col orb  lack; 

drawtext (215,75, 1, "COMMENT  ); 
setcolorwh  i  te; 

-f  i  lein-foCchoice  J  .  comment  :=  true; 
turnon; 
end; 
i-f  (y  >  84)  and  (y  <  105)      £  admin,  action.; 
then 
beg  in 

turnotf ; 

drawsquare (200, 85, 400, 105, true;  ; 
set col orb  lack; 

drawtext (215,95, 1,  ADMINISTRATIVE  ACTION) ; 
setcolorwhi  te; 

-fi  lein-foCchoice]  .admin  :=  true; 
turnon; 
end; 
i-f  (  y  >  104)  and  (y  <  125)     £  general  into  i 
then 
begin 
turno-f -f; 

drawsquare (200, 105, 400, 125, true) ; 
setcolorb lack ; 

drawtext (215, 1 15, 1 , 'GENERAL  INFORMATION ' ) ; 
setcolorwhi te; 

-f  i  lein-foCchoicel .  gen  in-fo  :=  true; 
turnon; 
end; 
i-f  (  y  >  124)  and  (y  <  149)     £  response  time  i 
then 


begin 

mav; =315; 

ct:=l; 

repeat 

i-f  keypressed  then 
beg  in 

read ( kbd , chars; ; 
i-f  chars <>#1  i-3  then 
drawte;<  t  (mov,  135,  1 ,  chars)  ; 
ct:=ct+i; 
mov: =mav+5; 

i-f  ct  =  5  then  chars  :=  #11" 
end; 
until  chars  =  #113 
end; 
end; 
end ;  C  -f  i  g6a  1  oc  > 


procedure  -f  ig71oc ; 
begin 

delay (250) ; 
gotoxy (15, 15) ; 
i-f  (y  >  29)  and  (y  <  40) 
then 
beg  in 

i-f  <:<  >  34)  and  ( :<  <  111)        <  assistance  > 
then 
begin 
astl ; 
ast2; 
end; 

i-f  (x  >  159)  and  (;<  <  236)       -C  return  > 
then 
beg  in 

turno-f -f ; 

c 1 earsc  reen ; 

str  (prev-f  ig,  saveval )  ; 

load  screen  (  '-fig  "  +saveva  1 )  ; 

turnon  ; 

-f  ignum  :  ■  prev-f  ig  ; 
end; 

i-f  (;<  >  2S4)  and  (x  <  3tsi)  then   -C  group  ;- 
rand-f  lag:  —  -false; 

i-f  (x  >  409)  and  <  ;<  <  4S6)  then    C random} 
rand-f  lag:  =true; 
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it  <(x  >  284)  and  ( x  <  361  >  >  or  <(x,>409)  and 
(x<486)>  then 
beg  in 

if  rand-flag  then 
beg  in 

turnof f ; 
set col orb  lack; 

drawsquare(2S5, 30, 360, 40, true) ; 
setcolorwh i  te; 

drawsquare (285, 30, 360, 40, false; ; 
drawtext (295,34, 1, 'GROUP' ) ; 
drawsquare (4 10, 30, 485, 40, true/ ; 
set col orb  lack; 

drawtext (420,34, 1,  RANDOM ' ) ; 
setcolorwhi  te; 
turnon; 
end 
else 
beg  in 

turnof f; 

drawsquare (285, 30, 360, 40, true)  ; 
setcolorb lack; 
drawtext (295,34, 1,  6R0UF  >  ; 
drawsquare (410, 30, 485, 40, true) ; 
setcolorwhi  te; 

drawsquare (410, 30, 485, 40, false; ; 
drawtext (420,34, 1,  RANDOM  ); 
turnon; 
end; 
end; 

if  (x  >  534)  and  (x  <  611)     i    send  3 
then 
begin 

if  pick  then 
beg  in 
x:=0; 
y:=0; 

p  ick: =f alse; 

f i leinf oCchoicel . routeCpp tr 3  :=  zzz  ; 
if  printflag  then 
begin 

writeln(lst,  file  name  = 
, fileinfoCchoice].fi lname) ; 
k:  =  i; 

while  ^ f i leinf oCchoice J . routaCkJ 
'  zzz ' >  do 
begin 
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wr i teln < 1st ,  target  = 
,  -filein-foC choice}  .  routeCk  1  )  ; 
k:=k+l; 
end; 
with  -f  i  lein-foCchoice  J  do 
begin 

wri tain (1st,  decision  =   , decision)  i 
wri teln ( 1st ,  comment   =   , comment); 
writelnvlst,  admin     =   ,aaminj; 
wri  to  In  (1st,  gen  into  =   ,  gen  into,1  ; 
wri  teln ( 1st  i ; 
end; 

wri teln (1st) ;writeln(lst) ; 
end; 

[  wri teln ( 1st ,' the  people  chosen  );> 

for  k:=l  to  6  do  > 

[  wri teln (1st,  parrayCkJ  )  ;  > 


pptr:=l; 
turno-f -f ; 
clearscreen; 
str (prev+ig, saveval ) ; 
case  o-f-fset  af 
0: 

loadscreen (  f  ig7a  ) ; 
10: 

loadscreen (  t  ig7b  ) ; 
20: 

loadscreen  (  '  -f  ig7c  '  )  ; 
30: 

loadscreen  (  '  -f  ig7d  '  )  ; 
40: 

loadscreen  <  '  -F  ig7e  '  )  ; 
50: 

loadscreen  (  '  -f  ig7-f  '  )  ; 
end;  -£case> 


i-f  rand-flag  then 
begin 

turno-f  f; 

set col orb  lack; 

drawsguare (265, 30, 360, 40, truej ; 

setcolorwhi  te; 

drawsguare (265, 30, 360, 40, false) ; 
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drawtext (295,34, 1,  (3R0UP  '  >  ; 

drawsguare (410, 30, 485, 40, true) ; 

set col orb  lack; 

drawtext (420,34, 1,  RANDOM ' > ; 

setcolorwhi  te; 

turnon; 
end 
else 
begin 

turno+f ; 

drawsquare (265, 30, 3o0, 40, true) ; 

set col orb  lack ; 

drawtext (295,34, 1,  "GROUP  > ; 

drawsquare (410, 30, 485, 40, true) ; 

setcolorwh  i  te; 

drawsquare (410,30,485,40, -false) ; 

drawtext (420,34, 1 ,  RANDOM  ) ; 

turnon ; 
end; 

J  J: =1 ; 

while  ( (parrayC j j ]  <>  -99)  and  <jj<7))  da 

j j:=j j+1; 
i j : =random  <  j  j ) ; 
j j:=parray[ j j  3  ; 

turnon; 
delay (1600) ; 
case  j  j  o-f 
1: 

noresp 

(210, 65,285,75) ; 
2: 

noresp (60, 105, 135, 115); 
2» 

noresp (525, 105, 600, 1 15) ; 
4: 

noresp (15, 141, 90, 151) ; 

noresp (255, 165, 330, 1 75) ; 
6: 

noresp (450, 165, 525, 175) ; 
end;   {case} 

jith  -f  i  lein-foCchoice!]  do 
begin 

routeC 11:  =  ' nogo '  ; 
decision  :=-false; 
comment  :=  -false; 


admin    :  =    -false; 
gemn-fo    :  =    -false; 
response; =—1 ; 
end; 


Pct:=l; 

-for  jj:=l  to  6  do 
parrayCjj  3:=— 99; 


■fignum  :=  7; 
end 
else 

begin 

gotoxy (28, 16)  ; 

write<  PLEASE   SELECT  A  ROUTE  FIRST  ) 5 
turnon; 
-f  ignum;  =7; 
end; 
end;  -Csend} 
end;     -Ctop  line  choices) 


p  ick:  =-f  alse; 

i-f  <  < (y  >  44)  and  (y  <  9<b>>  and  <(:<  >  294)   ana  ik 
346) )  ) 
then 
begin 

personchoice  ;=1; 
pick : =true; 
end; 

i-f  (y  >  84  )  and  <  y  <  136)  then 
begin 

i-f  Ck>  144)  and  <  :<  <  196)  then 
begin 

personchoice  :=  2; 
pick: =true; 
end; 
i-f  (  x  >  464)  and  (  :<  <  516)  then 
beg  in 

personchoice  :=  3; 
pick: =true; 
end; 
end; 


it  (y  >  144)  and  (  y  <  196)  then 
beg  in 

i  +  (x  >  74)  and  (x  <  126)  then 
beg  in 

personchoice  :=  4; 
p  ick:  =true; 
end; 
i+  Cx  >  194)  and  (x  <  246)  then 
begin 

personchoice  :=  5; 
p  ick: =true; 
end; 
i+  (x  >  534)  and  (x  <  585)  then 
begin 

personchoice  :=  6; 
pick: =true; 
end; 
end; 

i-f  pick  then 
begin 


case  o-ffset  o-f 
0: 

deptchoice: =1 ; 


10: 
20: 
30: 
40: 
50: 


deptchoice: =2; 
deptchoice  :=  3 
deptchoice  :=  4 
deptchoice  :=  5 

6 


deptchoice 
end;  ■£  case  > 


parray Cpct 3 : =personchoice; 
pet: =pct+l ; 


case  personchoice  o-f 
1: 

checkmark (275, 70) ; 

checkmark ( 125, 110); 
3: 

checkmark (445, 110) ; 
4: 

checkmark (55, 170) ; 
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5: 

checkmark (175, 170) ; 
6: 

checkmark  <515, 170) ; 
end;  -Cease} 


i-f  rand-flag  then 
select person 

else 

grouperson ; 


end; 

end;    x  -fig71oc  > 


procedure  -fig81oc; 
begin 

i-f  <y  >  29)  and  <y  <  40) 
then 
begin 

i-f  (x  >  34)  and  <y  <  111)        t  assistance  > 
then 
begin 
end; 

i-f  <x  >  159)  and  (:<  <  236)      i    return  j 
then 
begin 

turna-f -f ; 
c learscreen ; 
1  oadsc  reen  (  '  -f  i  g  1  '  )  ; 
turnon  ; 
lignum  :=  1; 
end; 

i-f  <:<  >  284)  and  Cx  <  361)  then   i  save  ; 
begin 

savemesg; 
turnon; 
end; 
i-f  <x  >  409)  and  <x  <  486)  then    {discard} 
begin 

gotoxy ( 15, 15) ; 
write! ' 

'>; 

end ; 
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end; 

mai  1 t  lag:  =  -f  alse; 
end ; 

procedure  -f  ig91oc; 

begin 

turn on ; 

mesgdone:  =-false; 

ec  t :  =  1 ; 

gotoxy ( 15, 16) ; 

write  <  '  *' '  )  ; 

delete  (bu-f£33,  1,80)  ; 

repeat 

regs.ai-t  :=  3; 

i  n  t  r ( *33 , reg  s ) ; 

•C  move  variables  into  generic  k  and  y  coordinates 

x  :=  regs.CK; 

y  : =  regs. dx; 

i-f  (y  >  29)  and  (y  <  40')   and  <regs.bx=i) 
then 
beg  in 

i-f  <x  >  34)  and  (x  <  1 11 )        £  assistance  > 
then 
begin 
ast  1 ; 
ast2; 
end; 

i-f  (x  >  159)  and  (x  <  236)      £  return  > 
then 
begin 

turnoff; 

clearscreen; 

loadscreen ( ' +ig5 ' >  ; 

drawstu-f-f; 

turnon  ; 

■fignum  :=  5; 

mesgdone: =true; 
end; 

i-f  <  x > 284 )  and  (  x <36 1 )  then       -C  save  } 
beg  in 

savemesg; 
turnon; 
end; 
end; 

it  keypressed  then 


begin 

read ( kbd , chars ) ; 

i-f  chars=#27  then 
begin 

read (kbd, chars) ; 
control  :  =»  true; 

case  chars  o-f 

'K':  Cleft  arrow) 

i-f  ect  <>  1  then  ect:=ect— 1; 

M':  -Cright  arrow> 

if  ect  <  length (bufC53 )  then  ect  :=ect+l; 

'  3  '  :  Cdelete> 
begin 

delete(bufC53,ect,  1 )  ; 
gotoxy  ( 15, 15) ; 
wri te ( ' 

•>; 

gotoxy ( 15, 15) ; 
write(buf C51) ; 
end; 
end;       -Cease  J 

if    <chars='M)    or    (chars* 'K')     then 
begin 

gotoxy ( 15, 16) ; 
wri  te ( ' 

>; 

gotoxy ( 14+ect, 16) ; 
wri  te  <  '  -  - '  )  ; 
end; 
end; 


if  (not  control)  then 
begin 

if  ( (chars>#64)  and  (chars<#91);  or 
( (chars>#96)  and  (chars<#123) )  or 
( (chars>#47)  and  (chars-#5S> )   or  (chars=#32) 
then 
begin 

if  (ect  <  50)  then 
begin 

insert (chars, buf C5] , ect ) ; 
ect: =ect+l ; 


gotoxy (15, 15) ; 
wri  te(bu-fC53)  ; 
gotoxy ( 15, 16)  ; 
wri  te ( 
'  ) ; 

gotoxy ( 14+ect, 16) 
wri te<  '  '- '  )  ; 
end; 
end ; 
end; 
control  :=  -false; 
end 

until  mesgdone; 

end; 

procedure  check  lac; 
beg  in 

case  f ignum  of 
1: 


*  1 

t  i  g  1 1  oc ; 

-f  ig21oc; 

4: 

5: 

•fig41oc; 

6: 

+ig51oc; 

7: 

■f  ig61oc; 

8: 

■f  ig71oc; 

9: 

f ig6aloc; 

10: 

f igaioc; 

and; 

■f  ig91oc; 

{case} 

end; 

procedure  init; 
begin 

Ini tgraphic; 

def ineworld (1,0,0, 640, 200) ; 

select world ( 1 ) ; 

readl ink; 

■fignum  :=  1; 


pert  lag  :  =  -false; 
quit flag  :=  false; 
editdone  :=  -false; 
control  :=  -false; 
mai  If  lag  :  =  -false; 
print -flag:  =-f  alse; 

-for  jjr^l  to  6  do 
parrayC j  j  J : =—99; 

•f  i  lein-foC703  .  f  i  lname  :=   mail'; 
-f  i  lein-foC70  3  .  in  use  :  =true; 

for  k  :=1  to  8  do 
begin 

with  -f  i  lein-foCkU  do 

begin 

inuse  :=  true; 
if  k<6  then 

tex_form  :=  true 
else 

tex_f orm  : =  false; 
decision  :=  -false; 
comment  :=  -false; 
admin  :=  -false; 
genin-fo  :  =  -false; 
response  :=  —1; 
routeL 13:=' nogo ' ; 
i-f  k  <  6  then 
begin 

str (k, saveval ) ; 
fi lname  :=  'TEST   +  saveval; 
end 
else 
begin 

str ( k— 5, saveval )  ; 
-fi  lname  :=   FORM'  +  saveval; 
end; 
end  ;  -Cwi  th  J 
end;   -CdaJ 
end ;  ■£  procedure  in  i  t   > 


M  A  I  N  > 


beg  in 
ini  t ; 
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load  screen  (  '  -f  igl  '  )  ; 

i       put  a  mouse  cursor  on  the  screen  J 

regs. ax  : =  1 ; 
intr  <*33, regs) ; 
regs.  ax:  =4; 

{_    -**  set  Mouse  to  center  o-f  screen  ** 

regs.  c;<  :  =  350; 
regs. dx  : =  100; 
intr  <*33, regs) ; 

l    *-*  start  processing  **  > 

k :  =0  ; 

skiprlag  :=  -false; 

pptr  :=1; 

rand-f  lag:  =true; 

v:=0; 

repeat 


i    **       determine  where  the  mouse  is   and  get  button 
status   *-*  > 

regs. ax  :  =  3; 

intr (433, regs) ; 

■C  move  variables  into  generic  x  and  y  coordinates  > 

x  : =  regs. ex; 

y  :=  regs.dx; 

C  gotoxy (5,5) ;  > 

£  wri te  <  '  x  —  '  )  ;   > 

i.  gotoxy  (5, 6)  ;  > 

{.  write  <  y  =        '  )  ;  J 

i  gotoxy (5,5)  ;      > 

<  w  r  i  t  e  (  '  K  =  ,  x  )  ;   > 
■C  gotoxy  (5, 6)  ;     > 

<  wri  te (  y=  , y ) ; > 


**■*-*  The  LEFT  mouse  button  was  chosen    *-*-*+ 

i-f  regs.  bx  =  l  then 
begin 

check loc  ; 
end;  C  LEFT   > 
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C    MIDDLE  Mouse  button  selected  > 

l-f  regs.bx  =  4   then 
ma  i  1  f  1  ag :  =t  rue ; 


■C  **    RIBHT   Mouse  button  was  chosen  ** 

if  regs.bx=2  then 
begin 

perflag  :=  true; 
check loc; 
end; 
if  regs.b:<=3  then 
begin 

if  printflag  then 

print  flag:  =-false 
else 

print-flag:  =true 
end; 

if  (fignum  =  1)  and  mailflag  then 
beg  in 

drawsquare (440, 60, 515, 80, true) ; 

set col orb  lack; 

drawtext (450, 70, 1, 'NEW  MAIL  ) ; 

setcolorwhi te; 

delay (100) ; 
end; 


until  quit  flag; 
leavegraph  ic; 
end. 
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A&STnnCT 

The  purpose  for  this  project  is  to  demonstrate  an  interface 
to  an  ottice  automat  1  on  system  that  takes  aa vantage  o-f 
innate  human  visual  processing  aDilities.    This  inter-face  is 
cast  in  the  moid  o-f  a  direct  manipulat  ion  tiie  manaoemen  t 
system  linked  directly  to  a  routing  system.   This  system 
all  owe  users  to  <zr&Bz&    and  rou  te  v«r  i  ous  ot-t  ice 
correspondence  -for  subsequent  act  ion .   A  s  imp  ie  moaei  ot  a 
hypothetical  chemical  company,  simulating  a  small  portion  o+ 
an  o+t  ice  env  i  r  on  men  t,  is  useo  to  ail  ow  -for  tne  aemonstra  t  ion 
ot  tne  interts.ee. 


